JADE COMPUTER PRODUCTS 
CP/M 2.2 - DOUBLE D 


THE FOLLOWING IS A LIST OF FILES PRESENT ON THE JADE DOUBLE 
D DISKETTE. A BRIEF DESCRIPTION IS ALSO INCLUDED. 


ASM.COM 
% BIM.ASM 

X BIM.HEX 

BIOS.ASM 

'll BIOSGEN.COM 

X BLT.ASM 
* BOOT.COM 


CBIOS.ASM 
CPM20.COM 


X DCM.ASM 

X DCM.HEX 
x DCMGEN.COM 


X DDBIOS'. ASM 


% DDBIOS.HEX 
DDT.COM 
DEBLOCK.ASM 
DISKDEF.LIB 
DUMP.ASM 
DUMP.COM 
ED.COM 

X FORMAT.ASM 
X FORMAT.COM 


LOAD.COM 
3f MOVCPM.COM 


CP/M ASSEMBLER - PROVIDED BY DIGITAL RESEARCH. 
BOOTSTRAP INJECTION MODULE - PART 2 OF A SYSTEM 
BOOTSTRAP PROM. IN TDL MACRO ASSEMBLER SOURCE. 
BOOTSTRAP INJECTION MODULE - THIS FILES IN INTEL 
HEX FORMAT. 

BASIC I/O SYSTEM - PROVIDED BY DIGITAL RESEARCH. 
BIOS FOR MDS DEVELOPMENT SYSTEM. 

BIOS GENERATOR UTILITY - USED TO READ AND WRITE AN 
IMAGE OF THE USERS CBI03 FROM AND TO SYSTEM TRACK 
0. THE IMAGE OF CBIOS RESIDES AT 1000H TO 13FFH. 
USE DDT TO PUT THE CBIOS IMAGE AT THAT ADDRESS. 
BIOS LOADER TRANSIENT - SOURCE CODE FOR "COLD 
START LOADER" AS GENERATED BY MOVCPM.COM. 

BOOT - PRESENTED AS A COM FILE, IF EXECUTED BY A 
SINGLE DENSITY CP/M SYSTEM IN WHICH THE DOUBLE D 
ALSO IS PRESENT, THIS WILL BOOT THE DOUBLE D 
SYSTEM. 

BASIC I/O SYSTEM - SKELETAL BIOS PROVIDED BY 
DIGITAL RESEARCH. 

IMAGE OF COLD START LOADER, CCP AND BDOS IN THE 
SAME FORMAT AS GENERATED BY MOVCPM 20 * AND THEN 
SAVE 34 CPM20.COM. 

DISK CONTROLLER MODULE - SOURCE CODE (TDL Z80) FOR 
THE DOUBLE D ONBOARD Z80A. 

DISK CONTROLLER MODULE - INTEL HEX FORMAT OF DCM. 
DCM GENERATOR UTILITY - USED TO READ AND WRITE AN 
IMAGE OF THE USERS DCM FROM OR TO SYSTEM TRACK 0. 
THE IMAGE OF DCM RESIDES AT 1000H TO 13FFH. USE 
DDT TO PUT DCM IMAGE AT THIS ADDRESS AND TO MAKE 
PATCHES. 

DOUBLE D BIOS - CP/M ASSEMBLER FORMAT SOURCE CODE 
FOR DOUBLE D BIOS. THIS ASSEMBLE IS LISTED IN THE 
SOFTWARE MANUAL. 

DOUBLE D BIOS - INTEL HEX FORMAT DDBIOS FILE. 
DYNAMIC DEBUG TOOL - DIGITAL RESEARCH. 

DEBLOCKING SOURCE CODE - DIGITAL RESEARCH. 

DISK DEFINITION LIBRARY - DIGITAL RESEARCH. 

FILE DUMP UTILITY - SOURCE BY DIGITAL RESEARCH. 
FILE DUMP UTILITY - COM BY DIGITAL RESEARCH. 

EDITOR UTILITY - DIGITAL RESEARCH. 

FORMAT UTILITY - DOUBLE D FORMAT PROGRAM SOURCE. 
FORMAT UTILITY - DOUBLE D FORMAT PROGRAM. FORMATS 
ON ANY DRIVE A THROUGH D IN SINGLE AND DOUBLE 
DENSITY. 

LOAD UTILITY - DIGITAL RESEARCH. 

CF'/M RELOACATI ON UTILITY - GENERATES CP/M SYSTEM 
WITH BLT FOR JADE DOUBLE D. 
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OLDSYS.COM 

PIP.COM 
y SBD.ASM 

STAT.COM 
SUBMIT.COM 
t SYSGEN.COM 


XSUB.COM 


SYSGEN UTILITY - DIGITAL RESEARCH SYSGEN.COM AS 
DOCUMENTED IN CP/M MANUALS. 

FILE TRANSFER UTILITY - DIGITAL RESEARCH. 

SYSTEM BOOT DRIVER - PART 1 OF SYSTEM PROM BOOT. 
ASSEMBLED SOURCE LISTING IS IN SOFTWARE MANUAL. 
SYSTEM STATUS UTILITY - DIGITAL RESEARCH. 

CP/M BATCH SUBSYSTEM - DIGITAL RESEARCH. 
CSL/CCP/BDOS GENERATOR UTILITY - DOUBLE D SYSTEM 
TRACKS COMPATABLE. SIMILAR TO SYSGEN.COM 

DESCRIBED IN CP/M MANUALS BUT DOES NOT READ OR 
WRITE BIOS. USE BIOSGEN FOR YOUR CBIOS. 

EXTENDED BATCH SUBSYSTEM - DIGITAL RESEARCH. 



THE SYSTEM TRACKS HAVE A DIFFERENT LAYOUT THAN THE DISKETTES 
DISTRIBUTED BY DIGITAL RESEARCH. THIS SECTION PRESENTS A 
DISCRIPTION OF THE SYSTEM TRACKS (0 AND 1) AS DISTRIBUTED FOR THE 
•JADE DOUBLE D DISK CONTROLLER BOARD. THOSE MODULES RESIDING ON 
THE SYSTEM TRACKS WHICH OFTEN NEED TO BE MODIFIED FOR A SPECIFIC 
SYSTEM ARE ON TRACK 0, WHICH IS IN SINGLE DENSITY. CCP AND BDOS, 
WHICH ARE NOT MODIFIED BY THE USER ARE ON TRACK 1 IN DOUBLE 
DENSITY. ALL DATA TRACKS ARE IN SINGLE DENSITY SUCH THAT THE 
DOUBLE D DISTRIBUTION DISKETTE CAN BE READ AND MODIFIED ON MOST 8" 
SINGLE DENSITY CP/M SYSTEMS. 

THE FOLLOWING TABLE SHOWS THE LAYOUT OF SYSTEM TRACK 0. THIS 
TRACK IS FORMATTED IN SINGLE DENSITY WITH 26 SEQUENTIALLY NUMBERED 
SECTORS. 


SECTOR 

NUMBER 

EXECUTION 

ADDRESS 

FORMAT 

LD ADDR 

MODULE 

NAME 

2.2, 

) J 

3 

£vi' 

01 - 

N. A. 


1000H 

IDT 

X.DT 


- 

02 

1380H 

(DD) 

1080H 

BLT 

SlT 


03 



1100H 


' - 


P/ft 

04 

4A00H+B 

1130H 

BIOS 

f 

\ 


05 

4AS0H+B 

1200H 

BIOS 



■ 


06 

4B00H+B 

1280H 

BIOS 



A 


07 

4B80H+B 

1300H 

BIOS 



- 


08 

4C00H+B 

1380H 

BIOS 




09 

4C80H+B 

1400H 

BI OS- 

i 




10 

4D00H+B 

1480H 

BIOS 

. i 




11 

4DS0H+B 

1500H 

BIOS | 

[ b CH 

- 

i 

12 



1580H 

RSV 


J 


13 

1000H 

<DD) 

1600H 

DCM 

fir 

0% 

Bias 

14 

1080H 

<DD) 

1680H 

DCM 

/ 




15 

ilOOH 

(DD> 

1700H 

DCM 





16 

1180H 

<DD> 

1730H 

DCM 

- its. 




17 

1200H 

(DD) 

1800H 

DCM 





18 

12S0H 

(Dfo) 

1830H 

DCM 





19 

1300H 

(DD) 

1900H 

DCM 





20 

1380H 

(DD) 

1980H 

DCM 

Bja s 


21 

1400H 

(DD) 

1A00H 

RSV 




22 

1480H 

(DD) 

1A30H 

RSV 




1 

23 

1500H 

(DD) 

1B00H 

RSV 


) 


* 

24 

1580H 

(DD) 

1B80H 

RSV 

j 



) ■ 

25 

1600H 

(DD) 

1C00H 

RSV 



; 


26 

1680H 

(DD) 

1C80H 

RSV 


/ 

X 


THE FOLLOWING TABLE SHOWS THE LAYOUT OF SYSTEM TRACK 1. THIS 
TRACK IS FORMATTED IN DOUBLE DENSITY WITH 48 PHYSICALLY STAGGERED 
SECTORS. 



SECTOR 

EXECUTION 

FORMAT 

MODULE 

NUMBER 

ADDRESS 

LD ADDR 

NAME 

01 


1D00H 

SPARE 

02 

3400H+B 

1D80H 

CCP 

03 

3480H+B 

1E00H 

CCP 

04 

3500H+B 

1E80H 

CCP 

05 

3580H+B 

1F00H 

CCP 

06 

3600H+B 

1F80H 

CCP 

07 

3680H+B 

2000H 

CCP 

08 

3700H+B 

2080H 

CCP 

09 

3780H+B 

2100H 

CCP 

10 

3800H+B 

2180H 

CCP 

11 

3880H+B 

2200H 

CCP 

12 

3900H+B 

2280H 

CCP 

13 

3980H+B 

2300H 

CCP 

14 

3A00H+B 

2380H 

CCP 

15 

3A80H+B 

2400H 

CCP 

16 

3B00H+B 

2480H 

CCP 

17 

3B80H+B 

2500H 

CCP 

18 

3C00H+B 

2580H 

BDOS 

19 

3C80H+B 

2600H 

BDOS 

20 

3D00H+B 

2680H 

BDOS 

21 

3D80H+B 

2700H 

BDOS 

22 

3E00H+B 

2780H 

BDOS 

23 

3E80H+B 

2800H 

BDOS 

24 

3F00H+B 

2880H 

BDOS 

25 

3F80H+B 

2900H 

BDOS 

26 

4000H+B 

2980H 

BDOS 

”27 

4080H+B 

2A00H 

BDOS 

28 

4100H+B 

2A80H 

BDOS 

29 

4180H+B 

2B00H 

BDOS 

30 

4200H+B 

2B80H 

BDOS 

31 

4280H+B 

2C00H 

BDOS 

32 

4300H+B 

2C80H 

BDOS 

33 

4380H+B 

2D00H 

BDOS 

34 

4400H+B 

2D80H 

BDOS 

35 

4480H+B 

2E00H 

BDOS 

36 

4500H+B 

2E80H 

BDOS 

37 

4580H+B 

2F00H 

BDOS 

38 

4600H+B 

2F80H 

BDOS 

39 

4680H+B 

3000H 

BDOS 

40 

4700H+B 

3080H 

BDOS 

41 

4780H+B 

3100H 

BDOS 

42 

4800H+B 

3180H 

BDOS 

43 

4880H+B 

3200H 

BDOS 

44 

4900H+B 

32S0H 

BDOS 

45 

4980H+B 

3300H 

BDOS 

46 


3380H 

SPARE 

47 


3400H 

SPARE 

48 


3480H 

SPARE 
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SYSTEM TRACK GENERATOR UTILITIES: 

THE THREE GENERATOR UTILITIES SYSGEN.COM, BIOSGEN.COM, AND 
DCMGEN.COM PROVIDE THE END USER THE ABILITY TO EXTRACT AND 
REWRITE VARIOUS SECTIONS OF THE SYSTEM TRACKS. THE FOLLOWING 
TABLE SHOWS WHICH SECTIONS OF MEMORY ARE USED BY EACH PROGRAM AND 
WHICH SYSTEM TRACK MODULES ARE READ OR REWRITTEN. SYSGEN.COM IS 
SIMILIAR TO THE SYSGEN.COM DESCRIBED IN THE CP/M 2.0 MANUAL SET. 
NOTICE THE DIFFERENCE IS THE BIOS MODULE. EACH OF THESE PROGRAMS 
PROVIDE A FILE LOAD FEATURE. AN EXAMPLE, IF YOU HAD A FILE 
CPM32.COM AND YOU WISHED TO WRITE THIS FILE TO THE SYSTEM TRACKS. 

A>DDT CPM32.COM 

(DDT DISPLAYS MESSAGE) 

-GO 

A>SYSGEN 

(AND THEN WRITE YOUR FILE) 

A>SYSGEN CPM32.COM 

(YOU GET A FILE LOADED MESSAGE) 

NOW WRITE YOUR FILE. 

IN CHANGING THE CP/M SYSTEM SIZE, YOU MUST REWRITE BLT/CCP/BDOS 
USING SYSGEN.COM AND REWRITE BIOS USING BIOSGEN.COM. DCMGEN IS 
USED TO MODIFY DCM FOR SUCH PARAMETERS AND DISK DRIVE STEP 
TIMING. CONSULT YOUR DCM LISTING FOR THE TIMING PARAMETERS. 


UTILITY 

MODULE 

TRACK 

SECTORS 

SYYSTEM ADDRESS 

SYSGEN.COM 

BLT 

0 

2 

0900-097FH 


CCP 

1 

2-17 

0980-117FH 


BDOS 

1 

13-45 

1180-1F7FH 

BIOSGEN.COM 

BIOS 

0 

4-11 

1000-13FFH 

DCMGEN.ASM 

DCM 

0 

13-20 

1000—13FFH 


NOTES FOR RELEASE #1 DISKETTES. THE DDBIOS IS ASSEMBLED FOR A 
REV B DOUBLE D CONTROLLER BOARD. DDBIOS SOURCE SHOULD BE 
MODIFIED, REASSEMBLED, AND WRITTEN TO SYSTEM TRACK 0 FOR REV C 
BOARDS. 
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THE FOLLOWING 
DISK DRIVE. 

JUMPERS 

SHOUULD BE 

EACH DRIVE: 

A, 

B, 

C, Y, 

DRIVE A: 

DRIVE B: 

DRIVE C: 

DIRVE D: 

DS1 

DS2 

DS3 

DS4 



LAST DRIVE: 

Tli 

T3, 

T4, T5, 


USED TO CONFIGURE A SHUGART 800 

T2, DS» 800 

T6 


THE L JUMPER IS SET DEPENDING ON THE -5V SUPPLY. 
CONSULT YOU SA800 MANUAL. 

USE ONLY THESE JUMPERS, NO OTHERS. 
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* * 


NEW CP/M 2.2 
BDOS FUNCTIONS 



* 

if 

if 

it 

it 


Entry Parameters 
Register C 
Register DE 

Returned Value 

Register A: 


k k k k k k k k k 


25H 

Drive 


00H 


Vector 


* 

* 

* 

* 

* 

it 


The RESET DRIVE function allows resetting of specified 
drive(s). The passed parameter is a 16 bit vector of drives 
to be reset, the least significant bit is drive A:. 

In order to maintain compatibility with MP/M, CP/M 
returns a zero value. 


FUNCTION 40: WRITE RANDOM WITH* 

ZERO FILL * 


ki 

k 

*kkkkkkkkkkkkkkkkki< 

Entry Parameters: 


* 

k 

Register C: 

28H 

k 

k 

Register DE: 

FCB Address 

•k 

k 

Returned Value: 


k 

k 

^Re^ister A: 

Return Code 

rkkkkkkkkkkkk^i 

k 

\rk 


The WRITE RANDOM WITH ZERO FILL operation is similar 
to FUNCTION 34: with the exception that a previously 
unallocated block is filled with zeros before the data 
is written. 






DIGITAL RESEARCH CP/M R 22 FIELD SOFTWARE CHANGE 

Copyright c 198PI Digital Research 

ID# CPM22-0001 PROGRAM: BDOS ISSUE DATE: 02/19/80 

Error Description: The following change affects only those CP/M systems which 
are using the optional blocking and deblocking algorithms listed in Appendix G of the 
CP/M Alteration Guide. If you are in doubt as to the applicability of this field change, 
please contact Digital Research or your CP/M distributor. 

Patch Procedure: Ensure you have an archive copy of the distributed 

MOVCPM.COM file. Make changes to a version of MOVCPM.COM by carefully following 
the steps shown below: MOVCPM.COM is loaded into memory using DDT and the 
changes are made using the Assemble (A) and Set (S) commands. After making the 
changes, return to the console command processor using the Go (G) command, and 
SAVE the altered memory image on disk. The memory image on tracks and 1 must 
also be updated. This can be accomplished by executing the new MOVCPM program, 
as described in the CP/M Alteration Guide, and integrating your customized I/O system. 

ddt movcpm.com 
DDT VERS 2.P! 

NEXT PC 
27(W Pl1d0 
-alcd2 
1CD2 nop 
1CD3 nop 
1CD4 Ixi h,0 
1CD7 


-G^ 

save 38 movcpm.com 

NOTE: This Field Software change is not installed in the CP/M version 2.2. It 
must be installed in all systems which use the deblocking algorithms listed in Appendix 
G of the CP/M Alteration Guide. 
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TDL ZSO CP/M DISK ASSEMBLER VERSION 2.21 PAGE 1 

BIOS - .JADE DOUBLE D CP/M 2.2 
TITLE PAGE 


; ****************************************************** 


; * 

■ PROGRAM IDs BIOS - CPM 2.2 * 

; * 

5 ****************************************************** 
? * 

5 PROPERTY OF: JADE COMPUTER PRODUCTS * 

5 4901 W. ROSECRANS BLVD. * 

! HAWTHORNE, CALIFORNIA * 

5 90250, U.S.A. * 

! * 

;****************************************************** 
• * 

; VERSION: 2.2 * 

s * 


; ****************************************************** 
5 THIS BIOS CONTAINS DISK SUBROUTINES WHICH ARE * 
? CQMPATABLE WITH THE DCM-2.2 MODULE AND THE JADE * 
5 DOUBLE D DISK CONTROLLER. THIS COMBINATION WILL * 
5 INTERFACE UP TO FOUR 8" DRIVES IN SINGLE AND DOUBLE * 
5 DENSITY. THE CONSOLE, READER/PUNCH, AND PRINTER * 
; INTERFACES SHOULD BE ALTERED FOR SPECIFIC END USER * 
5 SYSTEMS AS NEEDED. * 

;*********************************************** SK *** 


Uj' 

/ 






* 




TDL ISO CP/M DISK 

BIOS . JADE DOUBL 

EQUATES 


ASSEMBLEVERSION 2. 21 
U CP/M 2.2 


PAGE 2 



5 DISK OPERATING SYSTEM ADDRESSES- * 


001 4 

NK.SYS 

~~ 20 

.SYSTEM SIZE IN K BYTES. 

U400 

K.BYTE 

1024 

5 IK BYTE SIZE. 

5000 

CPM.SZ 

«« NK.SYS 

*K.BYTE ;TOP SYSTEM ADDRESS. 

U 000 

CPM.BS 

== CPM.SZ 

-- (20*K. BYTE) 5 CP/M BIAS VALUE. 

3400 

CCP 

«* CPM.BS 

+340OH 5 ADDRESS OF CCP. 

l.. Cj«./ 

BDuS 

== CPM.BS 

SCOOH ? ADDRESS UF BDUb. 

4A00 

S I OS 

== CPM.BS 

+4A00H ;ADDRESS OF BIOS 

C6 00 

BIOS.R 

i OOOH- 

BIOS 5 DDT OFFSET 1000H LOAD. 

o i oo 

I Pa 

— 010 OH 

?ADDRESS OF TPA. 

OUT F 

IOBYTE 

== OFFH 

?INITIAL IOBYTE VALUE. 

i n n t() 

BF.DRV 

0 

5 INITIAL DEFAULT DRV. 

(j( )0() 

SEC,. SZ 

0080H 

;BYTES PER SECTOR. 

0100 

FMT.SZ 

“= 0.1 OOP 

;FORMAT BUFF SIZE. 

UOC 

N. DRVS 

2 

?1-4 DRIVES. 


; #*###«■* 

:• if if -K- if if if if if if if if if if- if if if if if if if if if if if if if if if if if if if if if if if if if if ii- if if if if if ii- ii- 


5 DOUBLE 

D HARDWARE PARAMETERS. PLEASE NOTE THIS * 


; sect ii 

JN CONTAINS CONDITIONAL STATEMENTS. # 


v i? if if if h- if if if if if if if if if if ii* if if if -if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if ii' if if if if 

UU4>: 

D.PORT 

~~ 043H 

5 DOUBLE D PORT ADDRESS. 

0 00.1 

TRUE 

~ 1 

? TRUE IS A ONE. 

0000 

FALSE 

----- 0 

5 FALSE IS A ZERO. 

OOO 1 

REV. B 

== TRUE 

5 SET T RUE FOR REV B BOARDS. 

0000 

REV. C 

FALSE 

»SET TRUE FOR REV C BOARDS. 



.IFG REV.B, 

t 

0002 

BS.HLT 

002H 

SSTATUS PORT HALT INDICATOR3 



•IFG REV.C, 

L 


DS.HLT 

== ooiH 

;STATUS PORT HALT INDICATOR3 


7 if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if 

5 DOUBLE D HARDWARE COMMANDS * 

V if if if if if if if if if if if if if- if if* if- if if- if if if if if if if if if- if if if if if if if if if if if if if if if if if if if if if -if if if if if if 


OOO1 

DC.SIN 

== 0000000IB 

?SWITCH DD BAN! 

0 INTO SYSTEM. 

0001 

DC.MBO 

- - 00000001B 

5 SELECT DOUBLE 

D BANK 0. 

0003 

DC.MB1 

=~ 00000011B 

5 SELECT DOUBLE 

D BANK 1. 

0000 

DC.SOT 

=•-= 00000000B 

5 SWITCH DD MEM 

OUT OF SYSTEM. 

0002 

DC.INT 

“ OO00O010B 

?ISSUE DD Z80A 

INTERRUPT. 


5 if if if if if if if if if if if if if if if if if -if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if if 















TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 3 

BIOS - JADE DOUBLE D CP/M 2.2 


5 DISK CONTROLLER MODULE LINKAGE <DCM - VER 2.2) * 


;#•»■*•»■*##( COMMAND BLOCK DEFINED )*«**#***#**#******•#■**■#■ 


0370 

DD.CBT 

=K=5 

0370H 

; COMMAND BYTE 

(BANK 

0). 

0371 

DD.DRV 

— - 

0371H 

5 DRIVE NUMBER 

(BANK 

0). 

0372 

DD.TRK 

=™ 

0372H 

5 TRACK NUMBER 

(BANK 

0> . 

0373 

DD .SEC 

— — 

0373H 

.SECTOR number 

(BANK 

0) . 

0377 

DD.STS 

— — 

0377H 

? CMMD STATUS 

(BANK 

0). 

0330 

DD. BUF 

•-= = 

0380H 

; SECTOR BUFFER 

(BANK 

0) • 

0300 

DD.FBF 


0300H 

5 FORMAT BUFFER 

(BANK 

i >. 

03 AO 

DD.'DPB 

— — 

03A0H 

; ID SEC DPB 

(BANK 

0) . 

03B1 

DD.DDF 

-== 

03B1H 

5ID SEC FLAGS 

(BANK 

0). 


; #*«••«•#•# 

>r ( DCM 

COMMANDS 


uuuo 

DC.LOG 

zz:z:: 

OOOH 

? LOG ON DISKETTE 

M 


0001 

DC.RDS 


001H 

5 READ SECTOR. 



0002 

DC.WRS 

==~ 

002H 

5 WRITE SECTOR. 



0003 

DC.FMT 

~;::z 

003H 

} FORMAT TRACK. 




; ft####*#**##****#* 

; CONSOLE DEFINITIONS * 

; tt##*#####**###**###***####*#*#**########*#*##-***-**-#*#-* 


0000 

CNI.SP == 

OOOH 

;INPUT STATUS 

PORT 

0002 

CNI.SB == 

002H 

5 INPUT STATUS 

BIT 

00 OO 

CNI.SI =« 

OOOH 

;INPUT STATUS 

INVERT 

0001 

CNI.DP == 

001H 

5 INPUT DATA P 

OR I 

0000 

CNO.SP == 

OOOH 

;OUTPUT STATU 

3 PORT 

0004 

CNO.SB == 

004H 

? OUTPUT STATU 

3 BIT 

0000 

CNO.SI ~~ 

OOOH 

;OUTPUT STATU 

3 INVERT- 

000 i 

CNO.DP =-~= 

00 iH 

? OUTPUT DATA 

PORT 


5 ASSEMBLER DIRECTIVES * 


4AOO 


. PADS 
. PHEX 
.XLINK 
. LOC 


B103 
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V/ 


5 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

5. BIOS. JUMP VECTOR TABLE * 

$ X X X- X X* X X X X X X X X X- X X- X X X -x- X Xr X X X X X -X- X* X X- X X~ X- X X X X X X X X X X- X X~ X X X- X X X- X X 


4A00 

C3 4A83 


■JMP 

I NIT 

;COLD START ENTRY 

4A03 

03 4CBC 


•JMP 

WARM 

5 RELOAD CCP/BDOS 

4 m V o 

03 4030 


JMP 

CNS.CK 

;GET CONSOLE STATUS 

4 AO 9 

LAO 4 Com 


JMP 

CNS.IN 

;CONSOLE INPUT 

4ROC 

03 4C95 


JMP 

CNS.OT 

;CONSOLE OUTPUT 


0.3 4t AS 


JMP 

LIST 

SPRINTER OUTPUT 

4 m .1. C 

C3 40*4 / 


JMP 

PUNCH 

;PUNCH OUTPUT 

4 A 15 

.03! 4CA4 


JMP 

_iiEADER 

;READER INPUT 

4 A 1 o 

03 4C3C 


JMP 

HOME 

;HOME SELECTED DRIVE 

4 A 1 i.> 

03 4041 


JMP 

SELDSK 

!SELECT DISK DRIVE 

t i h 1 •:::. • 

03 4C60 


•JMP 

SETTRK 

; SET TRACK NUMBER 

4 AO: i 

C3 4Co5 


■JMP 

SETSEC 

;SET SECTOR NUMBER 

4 a .4 4 

L.: L: : 4C 6 A 


•JMP 

SETDMA 

5 SET TRANSFER ADDRESS 

4 AO: 7 

03 4BOS 


■JMP 

DISKRD 

:PERFORM DISK READ 

4 AO: A 

03 4823 


JMP 

DISKWR 

;PERFORM DISK WRITE 

4 tij.il 

L* 3 4 L h .o 


JMP 

LISTST 

;RETURN LIST STAT 

4A30 

C3 4C70 


.JMP 

3ECTRN 

;TRANSLATE SECTOR 

4 A0> 

C3 4BS0 


JMP 

FORMAT 

;FORMAT A TRACK 



? X X’ X X X- X 

X- -X- "X* X X X -X- X" X X- X- X" -X* X" 'X- X X -X- -X- X- -X- -X* X X -X* K- X -x- X- X* X- X- XXXXXXX X -X- X- X- X" XXX 



? R E S E R V E D R i V & 

PARAMETER BLOCK 

s 


;; xxx xxx 

X" X- X "X" X X- X -X* X- X- X- X X X X X X X X X X- X* X" X* X- X" X- X* X X X" X" X" X X" X" X- X* x- X X- X- X X-XX X" X 

00 OF 


DPB.SZ 

- = 

15 

; SIZE IS 15 BYTES. 

4 m 8 6 


DO. DPB." 

. BLK8 

DPB.SZ 

;RESERVES 15 BYTES. 

4 A 45 


D1.DPB: 

« BLKB 

DPB.SZ 

; FOR EACH DISK DRIVE. 

4 A! 4 


D2.DPB: 

. BLKB 

DPB«SZ 

;DRIVE A THRU DRIVE D. 

4 R63 


D3.DPB: 

. BLKB 

DPB.SZ 




$ X X X * X -ft- X X X X X X X X X* X X X X X X X X X X -5?" X- X X X- X X X X X X -X- X X- X X “X -X- X -X* X~ X -X* -X- X X -X* X -X- 



5 BIOS 

VARIABLE 

STORAGE 

X 



? >r X* X X -X X:- 

X X X- X X X X- X X- X X- X X X X X X X X X X X X X- X X X X X X X X X X X X X- X X- X- X X X X X X X X 

4 A 72 

00 

BT.CIiDs 

. BYTE 

0 

;DCM COMMAND. 

4 m / o 

00 

BT.DRV: 

. BYTE 

0 

5 DRIVE NUMBER. 

4 A 74 

00 

BT.IRK: 

. BYTE 

0 

? TRACK NUMBER. 

4 A 75 

00 

BT.SEC* 

. B YTE 

0 

5 SECTOR NUMBER. 

4 A 76 

00 

BT.SPOs 

. BYTE 

0 

;SPARE BYTE 0. 

4A77 

00 

BT.SPis 

. BYTE 

o 

;SPARE BYTE 1. 

4 A 78 

00 

BT.MOD: 

. BYTE 

OOOOOOOOB 

.5 MODE CONTROLS. 

4 A 79 

00 

BT.STS: 

. BYTE 

0 

?COMMAND STATUS. 

4 A / A 

0000 

BT.LAD: 

. WORD 

0 

5 LOAD ADDRESS. 

4 A / L* 

vo oo 

BT.LNG: 

. WORD 

0 

5 LOAD LENGTH. 

4m /b 

0000 

Bi«DMA « 

„ WORD 

0 

;SYSTEM TRANSFER ADDR. g > 

5 DRIVE TABLE POINTER. 

4AWU 

vo VO 

D"l . PTR: 

„ WuED 

0 

4 A 82 

00 

LOG.RQ: 

. BYTE 


? L U G 0 M R !:• Q U E 8 T R E G. 



" XXX XXX- 

XXXXXXXX 

X X X X X X* X- X- X X X X X X X X 

X X X X- X X X- X X X- X X X X X X X X- X X X X X 
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BIOS -- JADE DOUBLE D CP/M 2.2 
COLD BOOT AND DIRECTORY BUFFER 


; I NIT - COLD START ENTRY ** DIRECTORY BUFFER OVERLAY * 

; ^tf######*###*##**#**#**#*********#*#**##-*-**##****'*'**** 


4 A S3 


DIR.BF 


M 

,* BUFFER BEGINNING. 



5 •& # # # # # # ( GET 

SYSTEM K SIZE IN 

ASCII I*#***##*##******# 

4 Ado 

31 0080 

I NI T: 

LX I 

SP,0080H 

?SET UP STACK AREA. 

4 A 86 

21 5000 


LX I 

H» CPM.SZ 

SGET CPM SYS SIZE. 

4AS9 

7C 


MOV 

A,H 

5 GET NMBR OF PAGES. 

4m8A 

OF 


RRC 


? i/2). 

4 ABB 

OF 


RRC , 


;CPM SIZE IN K. 

4A8C 

0600 


MVI 

B 7 0 

5 ZERO TENS COUNTER. 

4 A BE 

FEOA 

C.TENS: 

CPI 

10 

;COMPARE AGAINST 10. 

4 A 90 

DA 4A99 


JC 

Cm ONES 

? MUST BE LESS THAN 10. 

4 m 93 

D60A 


SUI 

10 

!SUBTRACT 10. 

4A95 

04 


I NR 

B 

?INC TENS COUNTER. 

4 A 96 

C3 4A8E 


JMP 

C.TENS 

;COUNT TENS. 

4A99 

C630 

C.ONES: 

ADI 

'O'- 

5 ADD ASCII 0 TO REM. 

4A9B 

32 4AED 


STA 

SYS.OD 

;STORE ONES DIGIT. 

4A9E 

78 


MOV 

A,B 

? GET TENS COUNTER. 

4A9F 

0630 


ADI 

•** 0 

;ADD ASCII 0 TO TENS. 

4AA1 

32 4AEC 


STA 

SYS.TD 

?STORE TENS DIGIT. 



; < SYSTEM INITIALIZATION ) ********************* 

4AA4 

C3 4AC0 


JMP 

C.LOGO 

!JUMP OVER AREA. 

4AA7 



. BLKB 

25 

,* RESERVE INIT AREA. 



;*•»•■«•*###( SEND 

SYSTEM SIGN ON 

) 

4AC0 

21 4ACF 

C.LOGO: 

LX I 

HiMSG.SO 

;SIGN ON MSG ADDR. 

4AC3 

CD 4CAE 


CALL 

MSG.OT 

;ISSUE MESSAGE. 

4AC6 

2A 4A04 


LHLD 

BI08+4 

;WARM START ADDRESS. 

4 AC"? 

■iw4 m. 4A01 


SHLD 

BIOS+l 

?RESET COLD START. 

4ACC 

03 40DC 


JMP 

WARM 

,* PERFORM WARM BOOT. 

4ACF 

ODOAODOA 

MSG.SO: 

.ASCII 

CCR3CLFJCCR3CLFJ 

4 AD 3 

4A4144452043 


.ASCII 

-JADE COMPUTER 

PRODUCTS CCR 3 C LF 3 

4AEC 

30 

SYS.TD: 

. BYTE 

-o- 

;TENS DIGIT. 

4AED 

30 

SYS.OD: 

. BYTE 

*“ 0 *** 

?ONES DIGIT. 

4AE.E 

4 B2043502F 4 D 


.ASCIS 

"K CP/M VERS 2.2 •" CCR3 CL.F3 CCR3 CLF3 


;•*«••»••»•«• < FILL OUT DIRECTORY BUFFER ) *******#**#*#•#•***•* 


. IFG (DIR. BF+SEC.SZ-.>, C 

4B03 .LOC DIR.BF+SEC.SZ S FILL OUT SECTOR SIZE.I 

; **#•»•*•«•■«••&■»**#•»*#*#########•«• *••«••& ##•*■«•***##*•*•»••»•*+?■■«•■»••#••»•*•« 







/ 
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BIOS - JADE DOUBLE D CP/M 2.2 
READ AND WRITE SECTOR 


; tf**#*#*###***##***##*##**##****####***#*#*###*#****#** 

5 READ A DISK SECTOR ROUTINE * 


4B03 

3E01 

DISKRD: MVI 

A.DC.SIN 

SWITCH DO INTO SYSTEM. 

4B05 

D343 

OUT 

D.PORT 

5 ISSUE DD COMMAND. 

4B07 

3E01 

MVI 

AiDC•RDS 

? READ SECTOR COMMAND. 

4B09 

CD 4B78 

CALL 

DSK.EX 

;PERFORM OPERATION. 

4B0C 

C2 4B49 

JNZ 

DSK.ER 

?ERROR EXIT. 

4BOF 

2A 4A7E 

LHLD 

BT.DMA 

;LOAD USER BUF ADDRESS 

4B12 

EB 

XCHG 


? MOVE HL TO DE. 

4 BIS' 

01 0380 

LX I 

B,DO.BUF 

;LOAD BUFFER OFFSET. 

4B16 

2A 0040 

LHLD 

D.ADDR 

5 LOAD DD WINDOW ADDR. 

4B19 

09 

DAD 

B 

5HL NOW SECTOR BUFFER. 

4B1A 

01 0080 

LX I 

BiSEC.SZ 

5 LOAD SECTOR SIZE. 

4B i D 

CD 4BA7 

CALL 

BLOCK 

5 BLOCK MOVE ROUTINE. 

4B20 

C3 4B43 

JMP 

DSK.OK 

?NORMAL RETURN. 






; WRITE A DISK 

SECTOR ROUTINE 

* 



5 *###*##*####*##############•*###***#**###**#####*####*# 

4B23 

3E01 

DISKWR* MVI 

A,DC.SIN 

;SWITCH DD INTO SYSTEM. 

4B25 

D343 

OUT 

D.PORT 

5 ISSUE HARDWARE CMND. 

4B27 

01 0080 

LX I 

B,SEC.SZ 

;LOAD SECTOR SIZE. 4 

4B2A 

2A 0040 

LHLD 

D.ADDR 

5DD SYSTEM ADDRESS. 

4B2D 

11 0380 

LX I 

OtDO.BUF 

5 DD BUFFER OFFSET. 

4B30 

19 

DAD 

0 

5 HL NOW DD BUF ADDR. 

4B31 

EB 

XCHG 


?DE NOW DD BUF ADDR. 

4B32 

2A 4A7E 

LHLD 

BT.DMA 

?HL NOW USER BUF ADDR. 

4B35 

CD 4BA7 

CALL 

BLOCK 

!BLOCK MOVE ROUTINE. 

4B38 

3E02 

MVI 

A»DC.WRS 

? LOAD WRITE SEC CMND. 

4B3A 

CD 4B78 

CALL 

DSK.EX 

?CALL DISK EXECUTIVE. 

4 BSD 

CA 4B43 

JZ 

DSK.OK 

5 JUMP IF WRITE OK. 

4B40 

L*3 4B 4V 

JMP 

DSK.ER 

5 ERROR EXIT. 


? DISK READ/WRITE/FORMAT EXITS * 


4B43 

3E00 

DSK•OK« 

MVI 

A,DC.SOT 

?SWITCH DD OUT OF SYS. 

4B45 

D343 


OUT 

D.PORT 

;ISSSUE HARDWARE CMND. 

4B47 

AF 


XRA 

A 

? ZERO A REGISTER. 

4B48 

C9 


RET 


5 ERROR EXIT. 

4B49 

3E00 

DSK.ER! 

MVI 

A, DC.SOT 

?SWITCH DD OUT OF SYS. 

4B4B 

D343 


OUT 

D.PORT 

5ISSSUE HARDWARE CMND. 

4B4D 

3EFF 


MVI 

A,OFFH 

5 LOAD ERROR FLAGS. 

4B4F 

C9 


RET 


5 ERROR EXIT. 
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TDL 280 CP/M DISK ASSEMBLER VERSION 2.21 
BIOS - JADE DOUBLE D CP/M 2.2 
FORMAT TRACK AND DISK EXEC 


; tt***************************************************** 

5 FORMAT A DISK TRACK ROUTINE * 

; *#*********#*#*#*****************#*********#«********* 


4B50 

3E01 

FORMAT: 

MV I 

A,DC.SIN 

;SWITCH DD INTO SYSTEM. 

4B52 

D343 


OUT 

D.PORT 

5 ISSUE HARDWARE CMND. 

4B54 

3E03 

MV I 

A,DC.MB1 

?SELECT DD BANK 1. 

4B56 

D343 


OUT 

D.PORT 

?ISSUE HARDWARE CMND. 

4B58 

01 0100 


LX I 

B» FMT.SZ 

;FORMAT PROG SIZE. 

4B5B 

2A 0040 


LHLD 

D.ADDR 

5 DD SYSTEM ADDRESS. 

4B5E 

11 0300 


LX I 

D,DD.FBF 

iDD FORMAT BUF OFFSET. 

4B61 

19 


DAD 

D 

iHL NOW DD FBUF ADDR. 

4B62 

EB 


XCHG 


5DE NOW DD FBUF ADDR. 

4B63 

2A 4A7E 


LHLD 

BT.DMA 

?FORMAT PROGRAM ADDR. 

4B66 

CD 4BA7 


CALL 

BLOCK 

iBLOCK MOVE ROUTINE. 

4B69 

3E01 


MV I 

A,DC.MBO 

?RESELECT DD BANK 0. 

4B6B 

D343 


OUT 

D.PORT 

?ISSUE TO DD HARDWARE. 

4B6D 

3E03 


MV I 

A,DC.FMT 

;LOAD FORMAT TRK CMND. 

43B6F 

CD 4B78 


CALL 

DSK.EX 

iCALL DISK EXECUTIVE. 

4B72 

CA 4B43 


JZ 

DSK.OK 

iJUMP IF WRITE OK. 

4B75 

C3 4B49 


JMP 

DSK.ER 

;ERROR EXIT. 






5 DOUBL 

E D EXEC 

UTION SUBROUTINE 





4B78 

32 4A72 

DSK . EX: 

STA 

BT.CMD 

!STORE DCM COMMAND. 

4B7B 

01 0007 


LX I 

Bi 7 

;NMBR BYTE TO MOVE. 

4B7E 

11 0370 


LX I 

D.DD.CBT 

;COMMAND BYTE OFFSET. 

4B81 

2A 0040 


LHLD 

D.ADDR 

5DD SYS ADDRESS. 

4B84 

19 


DAD 

D 

? HL NOW PTS CMND BLK. 

4B85 

EB 


XCHG 


?NOW ADDR IN DE. 

4B86 

21 4A72 


LX I 

HiBT.CMD 

5 BIOS CMND BLOCK. 

4B89 

CD 4BA7 


CALL 

BLOCK 

iPERFORM BLOCK MOVE. 

4B8C 

3E02 


MV I 

A,DC.INT 

{LOAD DD INTERRUPT. 

4B8E 

D343 


OUT 

D.PORT 

?ISSUE DD INTERRUPT. 

4B90 

EB 


XCHG 


? E X CHANGE SRC/DSTN. 

4B91 

01 0005 


LX I 

B i 5 

? 5 RETURN BYTES. 

4B94 

DB43 

DSK. UIT: 

IN 

D.PORT 

iREAD DD STATUS. 

4B96 

E602 


AN I 

DS.HLT 

5 TEST HALT* FLAG. 

4B98 

C2 4B94 


JNZ 

DSK.WT 

;TEST UNTIL HALTED. 

4B9B 

3E01 


MV I 

A 7 I.J L- a *Z* I N 

?SWITCH DD INTO SYS. 

4B9D 

D343 


OUT 

D.PORT 

?ISSUE HARDWARE CMND. 

4B9F 

CD 4BA7 


CALL 

BLOCK 

.? GET DD STATUS. 

4BA2 

3A 4A79 


LDA 

BT.STS 

;LOAD STATUS BYTE. 

4 BAS 

A7 


ANA 

A 

? TEST FOR ERRORS. 

4BA6 

C9 


RET 


;RETURN TO CALLER. 


■»***# * ** * -a-*## # ****##******#■«•-a*#** ****## * **##** #**#*#■«• # 
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BIOS - JADE DOUBLE D CP/M 2.2 
BLOCK MOVE AND LOG-ON 


? #**#**#**####*****#**##**#**#****■»•#*#•«■■»■*■«•■«•# ■fr**#*****#* 
5 BLOCK - BLOCK MOVE (ZSO LOIR REGISTER USEAGE) * 
; #*####**#****####*#*##*# 


4 BA 7 

7E 

BLOCK: MOV 

A,M 

;GET BYTE. 

4BAS 

.12 

STAX 

D 

;STORE BYTE. 

4BA9 

23 

INX 

H 

;INC SOURCE PNTR 

4BAA 

13 

I NX 

D 

?INC DESTINATION 

4BAB 

OB 

OCX 

B 

5 DECREMENT COUNT 

4BAC 

—f *“•# 

/ O 

MOV 

A»B 

5 GET HIGH COUNT. 

4BAD 

B1 

ORA, 

C 

5 OR IN LO COUNT. 

4BAE 

C2 4BA7 

JNZ • 

BLOCK 

5 ANOTHER BYTE. 

4BB.1. 

C 9 

RET x 


;RETURN TO USER. 


5 

5 LOG-ON - SET DISK PARAMETER BLOCK * 


$ #&&&#*#( CHECK IF LOG-ON REQUESTED ) ####***•###**##*#*# 


4BB2 

•~i* A 4 At> 2 

LOG.ON: 

LDA 

LOG,RQ 

;CHECK LOG REQUEST. 

4BB5 

E601 


AN I 

001H 

;LOG ON BIT TEST. 

4BB7 

C2 4B43 


JNZ 

DSK.OK 

;RETURN, NO LOG-ON. 



$ ■**#***# ( READ 

IDENTITY SECTOR 

) &&##&&##&&#&##&&&&■& 

4BBA 

22 4A80 


SHLD 

DT.PTR 

;STORE.DRV TBL PNTR. 

4BBD 

3E01 


MV I 

A,DC.SIN 

;SWITCH DD INTO SYS. 

4BBF 

D343 


OUT 

D.PORT 

SISSUE HARDWARE CMND. 

4BC1 

3E00 


MVI 

A,DC.LOG 

»LOAD DCM LOG-ON CMND. 

4BC3 

CD 4B78 


CALL 

DSK.EX 

5 PERFORM DISK OP. 

4BC6 

CA 4BCF 


JZ 

LOG. CK 

5 GO TO LOGON ERROR. 

4BC9 

21 0000 


LX I 

H> 0 

;ERRORj BAD LOG ON. 

4BCC 

C3 4B49 


JMP 

DSK.ER 

;BIOS EXIT. 



;■**■*##•**•( CHECK 

FOR JADE ID ) tf *#**#*#*#*#****##***#**#■»■ 

4BCF 

11 0380 

LOG.CK: 

LX I 

DiDD.BUF 

;DD BUFFER OFFSET. 

4BD2 

2A 0040 


LHLD 

D. ADDR 

? DD SYS ADDRESS. 

4BD5 

19 


DAD 

D 

5 HL NOW PNTS BUFFER. 

4BD6 

11 4D4F 


LX I 

D,JADEID 

? DE PNTS BIOS ID. 

4BD9 

0608 


MVI 

B, ID.SZE 

5 SET LABEL SIZE. 

4BDB 

1A 

LOG.IDs 

L..DAX 

D 

? GET LABEL CHARACTER. 

4BDC 

BE 


CMP 

M 

5 DOES ID SECTOR MATCH. 

4BDD 

C2 4COA 


JNZ 

LG3740 

;ASSUME DISKETTE 3740. 

4BE0 

05 


DCR 

B 

;DECREMENT COUNT. 

4BE1 

C2 4BOB 


JNZ 

LOG.ID 

5 CHECK IF ANOTHER CHR. 



? < DISKE 

TTE CONTAINS ID 

) if- ifr ><• * a- if if- if- if- # if- if- * if- if if if if- if- if if- if-if- 

4BE4 

CD 4C29 


CALL 

TRNONE 

?ASSUME DDENS. 

4 BE 7 

CD 4C31 


CALL 

DPB. AD 

5 GET DPB ADDR IN DE. 

4BEA 

01 OSAO 


LX I 

B j DD.DPB 

;DPB ADDR OFFSET, 

4BED 

2A 0040 


LHLD 

D.ADDR 

;DD SYSTEM ADDRESS. 

4BF0 

09 


DAD 

B 

;HL NOW AT ID DPB. 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
BIOS - JADE DOUBLE D CP/M 2.2 
BLOCK MOVE AND LOG-ON 


4BF1 

01 

OOOF 


LX I 

B»DPB.SZ 

? DPB SIZE IN BYTES. 

4BF4 

CD 

4BA7 


CALL 

BLOCK 

? MOVE INTO DPB. 

4BF7 

11 

03B1 


LX I 

LLDD.DDF 

;ID DTA DNS OFFSET. 

4BFA 

2A 

0040 


LHLD 

D.ADDR 

;DD SYSTEM ADDR. 

4BFD 

19 



DAD 

D 

? HL POINTS FLAGS. 

4BFE 

7E 



MOV 

A* M 

5 LOAD FLAGS. 

4BFF 

E6 1 

04 


ANI 

04H 

5TEST DATA DENSITY. 

4C01 

CC 

40 IF 


CZ 

TR3740 

;IF 0 USE 3740 TRN. 

4C04 

2 A 

4A80 


LHLD 

DT.PTR 

!RELOAD POINTER. 

4 CO 7 

L: 

4B43 


JMP 

DSK.OK 

;exit bios jump. 




5 ####*# a -( ASS 

LIME 3740 DIS 

KETTE ) 

4C0A 

CD 

40 IF 

LG3740: 

CALL 

TR3740 

;SET SECTOR TRANSLATE. 

4C0D 

CD 

4031 


CALL 

DPB.AD 

?SET REGISTER DE. 

4C10 

01 

OOOF 


LX I 

B» DPB.SZ 

5DPB SIZE IN BYTES. 

4C13 

21 

4D2C 


LX I 

H,SD.PBK 

;ADDRESS OF BLK IMAGE. 

4C16 

CD 

4BA7 


CALL 

BLOCK 

? MOVE INTO DPB. 

4C19 

2 A 

4A80 


LHLD 

DT.PTR 

;RELOAD POINTER. 

4C1C 

C3 

4B43 


JMP 

DSK.OK 

;EXIT BIOS JUMP. 




; ( SET 

3740 SECTOR 

TRANSLATION )**************** 

4C1F 

11 

4D12 

TR3740* 

LX I 

D > SDTRAN 

?SECTOR TRAN TBL ADDR. 

4C22 

2A 

4A80 


LHLD 

DT.PTR 

? ADDR DISK PARA HDER. 

4C25 

73 



MOV 

Mi E 

;LOW ORDER ADDR. 

4C26 

23 



INX 

H 

?POINT NEXT BYTE. 

4C27 

72 



MOV 

Mi D 

?HIGH ORDER ADDR. 

4C28 

C9 



RET 


5 RETURN TO LOG USER. 




- ( set 

NO SECTOR TRANSLATION )tt###*##*-*###**-*#** 

4C29 

AF 


TRNONE* 

XRA 

A 

;ZERO A REGISTER. 

4C2A 

2A 

4A80 


LHLD 

DT.PTR 

;ADDR OF PARA HDER. 

4C2D 

77 



MOV 

M, A 

5 ZERO LOW ORDER ADDR. 

4C2E 

2 3 



INX 

H 

NEXT BYTE. 

4C2F 

77 



MOV 

M, A 

SZERO HIGH BYTE. 

4C30 

09 



RET 


;RETURN TO LOG USER/ 




; ( GET 

DRIVE PARA 

BLK ADDR )*■***#****##*•*•#***#*# 

4C31 

2A 

4A80 

DPB.AD: 

LHLD 

DT.PTR 

;ADDR DISK PARA HDER. 

4C34 

11 

OOOA 


LX I 

D, 10 

5 DPB TBL PNTR OFFSET . 

4037 

19 



DAD 

D 

NOW AT DPB PNTR. 

4038 

5E 



MOV 

Ei M 

? LOW ORDER ADDR. 

4039 

23 



INX 

H 

;NEXT BYTE. 

4C3A 

56 



MOV 

Di M 

5 HIGH ORDER ADDR. 

4C3B 

C9 



RET 


;RETURN TO LOG USER. 


5 
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TDL 280 CP/M DISK ASSEMBLER VERSION 2.21 
BIOS - JADE DOUBLE D CP/M 2.2 
DISK PARAMETER SUBROUTINES 


;«•*•**•*•«•*< HOME DRIVE I*###************#####***##**#**** 


4 CSC 

OEOO 

HOME: MVI 

C* 0 

JO REGISTER TO ZERO. 

4C3E 

C3 

4060 

JMP 

SETTRK 

5 PERFORM SET TRACK . 




SELECT DRIVE — LOGON 


4C41 

21 

0000 

SELDSK: LX I 

H 7 0 

;ERROR RETURN CODE. 

4C44 

7 9 


MOV 

A 7 C 

;PUT DRIVE NMBR IN A. 

4C45 

32 

4A73 

STA 

BT.DRV 

;STORE DRIVE NUMBER. 

4C4S 

F£< 

02 

CPI 

N.DRVS 

;CHECK IF LEGAL DRIVE. 

404A 

DO 


RNG 


5 NO CARRY IF ILLEGAL. 

4C4B 

7B 


NOV 

A,E 

?CHECK IF LOG-ON REQ. 

4C4C 

C' -s. 

4A82 

STA 

LOG.RQ 

■ STORE LOGON REGISTER. 

4C4F 

3 A 

4 A 73 

RETDSK: LDA 

BT.DRV 

5GET DRIVE NUMBER. 

4C52 

6F 


MOV 

L. A 

;L = DISK NUMBER. 

4C53 

2600 

MV I 

H, 0 

* ZERO H REGISTER. 

4C55 

29 


DAD 

H 

? *2. 

4C56 

29 


DAD 

H 

; #4. 

4C57 

2; 9 


DAD 

H 

5 #8. 

4C58 

29 


DAD 

H 

; «• 16 < SI ZE OF HEADER) . 

4C59 

ii 

4D57 

LX I 

D j DO.DPH 

?DRIVE 0 D.P.H. 

4C5C 

19 


DAD 

D 

;HL= DRIVE N DPH. 

4C5D 

C3 

4BB2 

JMP 

LOG.ON 

;GO CHECK LOG-ON. 




; a-# a- < SET 

TRACK 

4C60 

79 


SETTRK: MOV 

A, C 

;MOVE TRACK NUMBER. 

4C61 

3 2 

4 A 74 

STA 

BT.TRK 

5SAVE TRACK NUMBER. 

4C64 

C9 


RET 


?RETURN TO CALLER. 




; a-aa-a-a-s-a- ( SET 

SECT0R ) &%■ -s-* v< &*$• >-# # 

4 085 

79 


SETSEC: MOV 

A 7 C 

5 MOVE SECTOR NUMBER. 

4066 

32 

4 A 75 

STA 

BT.SEC 

;SAVE SECTOR NUMBER. 

4069 

C9 


RET 


;RETURN TO CALLER. 




; aaa-a-aa * < SET 

TRANSFER ADDRESS 

) ### & # # # # # # & *■ K- X- # # * # # •* # 

406A 

60 


SETDMA: MOV 

H, B 

SHIGH ORDER MOVE. 

406B 

69 


MOV 

L,C 

5 LOW ORDER MOVE. 

4060 


4A7E 

SHLD 

BT.DMA 

? SAVE TRANSFER ADDRESS. 

4C6F 

C9 


RET 


5 RETURN TO CALLER- 
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TDL ZSO CP/M DISK ASSEMBLER VERSION 2,21 
BIOS - JADE DOUBLE D CP/M 2.2 
.CONSOLE, READER/PUNCH, AND PRINTER DRIVERS 


5 a-a-a^a-aa-a ( SECTOR TRANSLATION )aaaaaaaaaaaaaaaaaaaaaaaaa 


4C70 
4C71 
4C72 
4C75 
4C76 
4C7 7 
4C78 
4C7A 
4C7B 
4C7E 
4C7F 


SECTRN: 


CA 4C7B 
EB 
09 
6E 

2600 

C9 

21 OOOl 


NOTRAN: 


MOV 

ORA 

JZ 

XCHG 
DAD 
MOV 
MV I 
RET 
LX I 
DAD 
RET 


A, D 
E 

NOTRAN 


TESTING TBL ADDR. 

ADDR IN REG DE. 

IF ZERO, NO TRANS. 

(HL) NOW TRANS TBL. 
(HL) NOW TRANS SECTOR. 
L IS TRANSLATED SEC. 
HIGH ORDER BYTE ZERO. 
RETURN TO CALLER. 

SET HL TO ONE. 

ADD SEC NMBR TO HL. 
RETURN TO CALLER. 


; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
; CONSOLE INPUT STATUS a 
; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 


4C80 

DBOO 

CNS.CK: IN 

CNI.SP 

;INPUT STATUS 

4C82 

EEOO 

XRI 

CNI.SI 

;POLARITY ADJUST 

4C84 

E602 

ANI 

CNI.SB 

$MASK STATUS BIT 

4C86 

uy 

RZ 


;RETURN NOT RDY 

4C87 

3EFF 

MVI 

A,OFFH 

5 SET READY FLAG 

4089 

C9 

RET 5 RETURN RDY 

; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

5 CONSOLE INPUT CHARACTER » 

4C8A 

CD 4C80 

CNS.IN: CALL 

CNS.CK 

5 CALL STATUS CHECK. 

4C8D 

CA 4C8A 

JZ 

CNS.IN 

;REPEAT TILL READY. 

4C90 

DBO1 

IN 

CNI.DP 

;INPUT CHARACTER. 

4C92 

E67F 

ANI 

07FH 

? 7 BIT ASCII+SIGN. 

4C94 

C9 

RET 


;RETURN TO CALLER. 


; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
? CONSOLE OUTPUT a 
; aaaaaaa-aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 


4C95 

DBOO 

CNS. Of: IN 

CNO.SP 

;INPUT 

STATUS 

4C97 

EEOO 

XRI 

CNO.SI 

;ADJUS 

T POLARITY 

4C99 

E604 

ANI 

CNO.SB 

5 MASK 

STATUS BIT 

4C9B 

CA 4C95 

JZ 

L-NS. UT 

;TRY AGAIN 

4C9E 

79 

MOV 

A, C 

; GET C 

HARACTER 

4C9F 

E67F 

ANI 

07FH 

5 7 BIT 

ASCII 

4CA1 

D301 

OUT 

CNO.DP 

• SEND 

CHARACTER 

4CA3 

C9 

RET 





aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
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TDL ISO CP/M DISK ASSEMBLER VERSION 2.21 

BIOS -- JADE DOUBLE D CP/M 2.2 

CONSOLE» READER/PUNCH, AND PRINTER DRIVERS 



; READER AND PUNCH DRIVERS -- USER DEFINED * 


4CA4 

3E1A 

READER: 

MVI 

A,CNTL.Z 

5 RETURN END OD FILE. 

4 LA 6 

C9 


RET 


;NOT IMPLEMENTED. 

4CA7 

C9 

PUNCH: 

RET 


; NOT IMPLEMENTED. 






J PRINTER DRIVER AREA 




5 

4CA8 

C3 4C95 

LIST: 

JMP 

CNS. OT 

f SEND TO CONSOLE 

4CAB 

3EFF 

LISTST : 

MVI 

A 7 OFFH 

5 READY 

4 CAD 

c*? 


RET 








5 SEND 

MESS* AGE 

SUBROUTINE 





4CAE 

F5 

MSG.OT: 

PUSH 

PSW 

?SAVE CALLER FLAGS. 

4CAF 

4E 

..REPT: 

MOV 

C,M 

? LOAD CHARACTER. ^ 

4CB0 

CD 4C95 


L-ALL 

CNS. OT 

5 CONSOLE OUTPUT. fy 

4 CBS 

7E 


MOV 

A? M 

ISAME CAHRACTER. 

4CB4 

23 


INX 

H 

■? INCREMENT POINTER. 

4CB5 

ESSO 


AN I 

OS OH 

? TEST SIGN BIT. 

4CB7 

CA 4CAF 


JZ 

..REPT 

5 ANOTHER CHARACTER. 

4CBA 

FI 


POP 

PSW 

5 RESTORE FLAGS- 

4CBB 

C9 


RET 


5 RETURN TO CALLER. 




OOOA 


LF 


OOAH 

5 ASCII LINE FEED. 

OOOD 


CR 

-- 

OODH 

? CARRAIGE RETURN. 

001A 


CNTL. Z 


01 AH 

* CONTROL-Z (EOF). 


5 #*#### 





4 


TDL Z30 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 13 

BIOS ~ JADE DOUBLE D CP/M 2.2 
WARM BOOT ENTRY 


? WARM REBOOT ENTRY - LOADS CCP/BDOS - INITIALIZES * 

$ ft################'*####*##'*#*########## 

;***#**#< SET UP FOR SYSTEM BOOT )*#*##*##*#######**### 


4CBC 

31 0080 

WARM! LX I 

SPi0080H 

5SET UP STACK. 

4CBF 

3E00 

MVI 

A > 0 

?DRIVE 0 VALUE. 

4CC1 

32 4A73 

STA 

BT.DRV 

?SELECT DISK. 

4CC4 

0.1 3400 

LX I 

B, CCP 

?CP/M CCP ADDRESS. 

4CC7 

CD 4C6A 

CALL 

SETDMA 

?SET DMA ADDR. 

4 CCA 

0E02 

MVI 

C ? L* 

?CCP 1ST SECTOR. 

4CCC 

CD 4C65 

CALL 

SETSEC 

;SET SECTOR NMBR. 

4L‘Ui- 

0E01 

MVI 

C, 1 

?CCP/BDOS TRACK. 

4CD1 

CD 4C60 

CALL 

SETTRK 

?SET TRACK NUMBER. 



;-s-< READ 

CCP/BDOS 


4 CD 4 

CD 4BOS 

W.READ: CALL 

DISKRD 

5 READ ONE SECTOR. 

4 CD 7 

A 7 

ANA 

A 

?SET FLAGS. 

4CDS 

C2 4CF4 

JNZ 

W» EROR 

? EXIT IF ERROR. 

4CDB 

3A 4A75 

LDA 

BT.SEC 

?GET SECTOR NMBR. 

4CDE 

FE2D 

CPI 

45 

5 LAST SECTOR CHECK. 

4 CEO 

CA 4CFB 

JZ 

W.ZRPG 

;GOT0 ZERO PAGE SET. 

4CE3 

3C 

I NR 

A 

iINCREMENT SECTOR. 

4CE4 

32 4A75 

STA 

BT.SEC 

;STORE NEXT SECTOR. 

4CE7 

11 0030 

LX I 

D>SEC.SZ 

■5 GET SECTOR SIZE. 

4CEA 

2A 4A7E 

LHLD 

BT.DMA 

? GET TRANSFER ADDR. 

4CED 

19 

DAD 

D 

5 CALCULATE NEW ADDR. 

4 CEE 

22 4A7E 

SHLD 

BT.DMA 

?SET NEW ADDRESS. 

4CF1 

C3 4CD4 

JMP 

W.READ 

? DO ANOTHER WARM READ. 



READ 

ERROR DETECTED )#**#####*##***##*#*#*#*# 

4CF4 

21 4D43 

W.EROR: L.X I 

H,MSG.LE 

5 GET ERROR MESAAGE. 

4CF7 

CD 4CAE 

CALL 

MSG.OT 

?ISSUE MESSAGE. 

4CF A 

76 

HLT 


;OR GOTO MONITOR 



{*****#*< INITIALIZE SYS 

fEM PARAMETERS ) 

4CFB 

01 0008 

W.ZRPG: LX I 

Bi 8 

? BASE IMAGE SIZE. 

4CFE 

.11 0000 

LX I 

D i 0 

;base address set. 

4D01 

21 4D3B 

LX I 

H,BS.IMG 

;BASE IMAGE ADDR. 

4D04 

CD 4BA7 

CALL 

BLOCK 

.{BLOCK MOVE ROUTINE. 



; ( JUMP 

TO CCP ) to#*#####*###*#**#######'*’**###### 

4D07 

21 0080 

LX I 

Hi0080H 

{DEFAULT SECTOR BUFF. 

4D0A 

22 4A7E 

SHLD 

BT.DMA 

{SET TRANSFER ADDRESS. 

4D0D 

OEOO 

MVI 

C 7 0 

{DISK NMBR: OLD DISK? 

•4D0F 

C3 3400 

JMP 

CCP 

{JUMP INTO CCP CP/M. 










TDL ZSO CP/M DISK ASSEMBLER VERSION 2.21 PAGE 14 

BIOS - JADE DOUBLE D CP/M 2.2 
TABLES AND VARIABLES 


; **#*#*•«•#*###**#****•*#**#*•**#***■*****■#•*•*******##****•*** 
; (DISK REQUEST PARAMETERS) 

; tf**-*-**###*##*#***-#***#**#**#****#*#******#*-****#*##*** 

0040 D.ADDR == 0040H J DD SYSTEM MEM ADDRESS. 

; 3740 FORMAT PARAMETERS -ft******* CP/M SINGLE DENSITY * 

;**#****< SINGLE DENSITY CP/M SECTORING )***■#■****##**»# 


4D12 

0107OD131905 

SDTRAN: .BYTE 

01 H» 07H» ODH»13Hj19H,05H 

4D18 

OBI 1170309OF 

. BYTE 

OBH»11H >17H j 03H * 09H t OFH 

4D1E 

15020S0E141A 

. BYTE 

15H j 02H j OS'H» OEH» 14H i 1 AH 

4D24 

060C121S040A 

.BYTE 

06H,OCH,12H,18H,04H,OAH 

4D2A 

1016 

.BYTE 

10H,16H 



$######*( DEFAULT DISK PARAMETER BLOCK >**#**#*#*#**•##* 

4D2C 

001A 

SD.PBK: .WORD 

26 ?SECTORS PER TRACK. 

4D2E 

03 

. BYTE 

3 ;BLOCK SHIFT FACTOR. 

4D2F 

07 

.BYTE 

7 ?BLOCK MASK. 

4D30 

00 

.BYTE 

0 ? NULL MASK. 

4D31 

OOF 2 

. WORD 

242 5 DISK SIZE - 1. 

4D33 

003F 

. WORD 

63 ?DIRECTORY MAX. 

4D35 

CO 

.BYTE 

11OOOOOOB ?ALLOC 0. 

4036 

00 

. BYTE 

0 ?ALLOC 1. 

4D37 

0010 

. WORD 

16 ?CHECK SIZE. 

4D39 

0002 

.WORD 

2 5 TRACK OFFSET. 


? ZERO PAGE IMAGE * 


4D3B 

C3 4A03 

BS.IMG: JMP 

BI0S+03H 

;WARM BOOT VECTOR. 

4D3E 

FFOO 

.BYTE 

IOBYTE»DF.DRV 

;I/O BYTE AND DFLT DRV. 

4D40 

C3 3C06 

JMP 

BD0S+06H 

5 BDOS CALL VECTOR. 


; #■»■■»■•«•■«••«■•«■«••»•»#«••«••»•»•«•#■»•«•■«•■»■•«••»••«■*#•){■##*##*•«•####•»■*•«••«•«••»•#■«•«•«•«•■»•■«••«•»■»<• 
; MESSAGES * 


4D43 0D0A4C4F4144 MSG. LE: .ASCIS CCR3 CL.F 1 "LOAD ERROR" 

? ID LABEL DEFINITIONS * 

4D4F 4A6164652044 JADEID: .ASCII 'JADE DD " ;ID LABEL. 

0003 ID.SZE == .-JADEID ; LABEL SIZE. 


*• *####*#*■#«•*■•«••#•-a*##- -a-** *• ■***•****•*#####■«•*#*#*•*#•»■***•###••&■*# # 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
BIOS - JADE DOUBLE D CP/M 2.2 
DRIVE PARAMETER HEADERS 


5 DRIVE PARAMETER HEADER AREA * 


4D57 

0000 

DO.DPH* 

. WORD 

0 * SECTOR TRAN TBL. 

4059 

0000 


. WORD 

0 ?SCRATCH AREA. 

4D5B 

0000 


. WORD 

0 ;SCRATCH AREA. 

4D5D 

0000 


. WORD 

0 5SCRATCH AREA. 

4D5F 

4A83 


. WORD 

DIR.BF ;DIRECTORY BUFFER. 

4D61 

4A36 


. WORD 

DO.DPB ;DRIVE PARAM BLK. 

4D63 

4E1B 


. WORD 

DO.CHK ;DRIVE CHANGE BLK. 

4D65 

4D97 


. WORD 

DO.ALL ? DRIVE ALLOCATION. 



; a-aaaa-aaaa-aa-a-aa-a-a-aa-a-aa'a'aa-aa-a-a-a-aa-a-a-aa-a-a-a-a-aa-a-a-aa-a-a’a-a-a-a-a-a-a- 

4D67 

0000 

Dl.DPH." 

. WORD 

0 

4D69 

0000 


. WORD 

0 

4D6B 

0000 


. WORD 

0 

4D6D 

0000 


. WORD 

0 

4D6F 

4 ASS 


. WORD 

DIR.BF 

4D71 

4A45 


. WORD 

Dl.DPB 

4D73 

4E2B 


. WORD 

Dl.CHK 

4D75 

4 DBS 


. WORD 

Dl.ALL 



; fra-#*#**#####*#****######*#**#***###**#*#**###*#####*#* 

4D77 

0000 

D2.DPH: 

. WORD 

0 

4D79 

0000 


. WORD 

0 

4D7B 

0000 


. WORD 

0 

4D7D 

0000 


. WORD 

0 

4D7F 

4 A 8 o' 


. WORD 

DIR.BF 

4D81 

4A54 


. WORD 

D2.DPB 

4 Ci 8 3 

4E3B 


. WORD 

D2.CHK 

4D85 

4DD9 


. WORD 

Dl:' a ALL. 



; ft##*#**######***############*################**#####*# 

4D87 

0000 

D3.DPH: 

. WORD 

0 

4D89 

0000 


. WORD 

0 

4D8B 

0000 


. WORD 

0 

4 DSD 

0000 


. WORD 

0 

4D8F 

4A83 


. WORD 

DIR.BF 

4D91 

4A63 


. WORD 

D3« DPB 

4D93 

4E4B 


. WORD 

D3.CHK 

4D95 

4DFA 


. WORD 

D3.ALL 


? a-a-a-a-a-a-a-a-a-a-a-a-a-a-a-^a-a-a-a-a-a-a-a'a-a-a-a’a-a'a-aa-a-a-a-a-a-aa-a-a-a-a-a-a-a-a-a-a-a'a-a-a- 
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; ft#***####*#*#*####*#****#****#**************#*#*#***** 

? DRIVE ALLOCATION AREAS DECLARED * 

; ft*##**####*#*****##*##**###****#**#**##**##********#** 


4D97 

ADDR 


5 AT CURRENT 

LOCATION. 


0021 

ALL.SZ 

= SS 

33 ?ALLOCATION 

BLOCK SIZE. 

4D97 

DO.ALL 

rrnr: 

ADDR 5 ALLOCATION 

FOR 

DRIVE 

0. 

4DB8 , : 

ADDR 


ADDR+ALL.SZ 




4DB8 

Dl.ALL 


ADDR ?ALLOCATION 

FOR 

DRIVE 

1 . 

4DD9 

ADDR 

rr 

ADDR+ALL.SZ 




4DD9 

D2.ALL 


ADDR 5 ALLOCATION 

FOR 

DRIVE 

!c!« 

4DFA 

ADDR 


ADDR+ALL.SZ 




4DFA 

D3.ALL 


ADDR ?ALLOCATION 

FOR 

DRIVE 

3. 

4E1B 

ADDR 

2S 

ADDR+ALL.SZ 





; ft########**##*##**##**#**##*****##*#*##*#***#*##*****# 

5 CHANGED DISK CHECK AREAS DECLARED #■ 

; ft*######*#***#*#####*#**###***#*#*#*#####*#*###******# 


0010 

CHK.SZ 


16 

? CHECK 

AREA 

SIZE. 


4E1B 

DO.CHK 


ADDR 

? CHECK 

AREA 

FOR 

DRIVE 

0 

4E2B 

ADDR 


ADDR+CHK.SZ 





4E2B 

Dl.CHK 


ADDR 

;CHECK 

AREA 

FOR 

DRIVE 

1 

4E3B 

ADDR 

-- 

ADDR+CHK.SZ 





4E3B 

D2.CHK 


ADDR 

? CHECK 

AREA 

FOR 

DRIVE 

2 

4E4B 

ADDR 


ADDR+CHK.SZ 





4E4B 

D3.CHK 


ADDR 

5 CHECK 

AREA 

FOR 

DRIVE 

3 

4E5B 

ADDR 


ADDR+CHK.SZ 







; ft*#######*######*#**##*###*######**##*#*#***#########* 

. END 





c 




I * 
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ADDR 

4E5B 

ALL.SZ 

0021 

BDOS 

3C00 

BIOS 

4A00 

BIOS.R 

C600 

BLOCK 

4BA7 

BS.IMG 

4D3B 

BT.CMD 

4A72 

BT.DMA 

4A7E 

BT.DRV 

4A73 

BT.LAD 

4A7A 

BT.LNG 

4A7C 

BT.MOD 

4 A 78 

BT.SEC 

4A75 

BT.SPO 

4A76 

BT.SP1 

4A77 

BT« STS 

4A79 

BT.TRK 

4A74 

CCP 

3400 

CHK.SZ 

0010 

CNI.DP 

OOOl 

CNI.SB 

0002 

CNI.SI 

0000 

CNI.SP 

0000 

CNO.DP 

0001 

CNO.SB 

0004 

CNO.SI 

0000 

CNO.SP 

0000 

CNS.CK 

4C80 

CNS.IN 

4C8A 

CNS.OT 

4C95 

CNTL.Z 

001A 

CPM.BS 

0000 

CPM.SZ 

5000 

CR 

OOOD 

C.LOGO 

4AC0 

C.ONES 

4 AV '? 

C.TENS 

4A8E 

DO.ALL 

4D97 

DO.CHK 

4E1B 

DO.DPB 

4 A 36 

DO.DPH 

4D57 

D1.ALL 

4DB8 

Dl.CHK 

4E2B 

D.L. DPB 

4A45 

Dl.DPH 

4D67 

D2.ALL 

4DD9 

D2.CHK 

4E3B 

D2.DPB 

4A54 

D2.DPH 

4D77 

03 m ALL 

4DFA 

D3.CHK 

4E4B 

D3.DPB 

4 A 6 3 

D3.DPH 

4DS7 

DC.FMT 

0003 

DC.INT 

0002 

DC.LOG 

0000 

DC.MBO 

0001 

DC.MB1 

0003 

DC.RDS 

0001 

DC.SIN 

0001 

DC.SOT 

0000 

DC.WRS 

0002 

DD.BUF 

0380 

DD.CBT 

0370 

DD.DDF 

03B1 

DEi. DPB 

03 AO 

DD.DRV 

0371 

DD. FBI- 

0300 

DD.SEC 

0373 

DD.STS 

0377 

DD.TRK 

0372 

DF. DR'v' 

oooo 

DIR.BF 

4A83 

DISKRD 

4B03 

DISKWR 

4B23 

DPB.AD 

4C31 

DPB.S Z 

OOOF 

DSK.ER 

4B49 

DSK.EX 

4B78 

DSK.OK 

4B43 

DSK.WT 

4B94 

DS.HLT 

0002 

DT.F'TR 

4A80 

D.ADDR 

0040 

D.PORT 

0043 

FALSE 

0000 

FMT.SZ 

0100 

FORMAT 

4B50 

HOME 

4C3C 

ID.SZE 

0008 

INIT 

4A8J 

IOBYTE 

OOFF 

JADEID 

4D4F 

K.BYTE 

0400 

LF 

OOOA 

LG3740 

4C0A 

LIST 

4CA8 

LISTST 

4CAB 

LOG.CK 

4BCF 

LOG.ID 

4BDB 

LOG.ON 

4BB2 

LOG.RQ 

4A82 

MSG.LE 

4D43 

MSG.OT 

4CAE 

MSG.SO 

4ACF 

NK.SYS 

0014 

NGTRAN 

4C7B 

N. DRVS 

0002 

PUNCH 

4CA7 

READER 

4CA4 

RETDSK 

■4C4F 

REV. B 

0001 

REV. C 

0000 

SDTRAN 

4 El 12 

SD.PBK 

4D2C 

SECTRN 

4C70 

SEC.SZ 

0080 

. SELDSK 

4C41 

SETDMA 

4C6A 

SETSEC 

4C65 

SETTRK 

4C60 

SYS.OD 

4AED 

SYS.TD 

4AEC 

TPA 

0100 

TR3740 

4C1F 

TRNONE 

4C29 

TRUE 

0001 

WARM 

4CBC 

W.EROR 

4CF4 

W.READ 

4CD4 

W.ZRPG 

4CFB 
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•I >:■ •><• -x* >r >:• -$f x* x* *x* >:* y: k- >r >c -x- -Jc *>?• *><• -h* >rx- ■# *x- -x* •£• -S' •&* ~x 

; * 
; DISK CONTROLLER MODULE (DCM) * 

5 * 

; ***************************************************** 
? * 
5 PROPERTY OF: JADE COMPUTER PRODUCTS INC. * 

S 4901 W. ROSECRANS BLVD. * 

5 HAWTHORNE, CALIFORNIA * 

5 90250, U.S.A. * 

; * 
; ***************************************************** 
; * 
? ■ VERSION: 2.20 - 8" DRIVES * 

; * 
; ***************************************************** 
; * 
? WRITTEN BY: STAN KRUMME * 

; * 
5 ***************************************************** 

5 THE DISK CONTROLLER MODULE (DCM) RESIDES INTERNAL * 
5 TO THE JADE DOUBLE D DISK CONTROLLER BOARD. THIS * 
S PROGRAM PROVIDES A FACILITY TO READ/WRITE DISKETTE * 
5 SECTORS AND FORMAT DISKETTE TRACKS (IN SINGLE AND * 
5 DOUBLE DENSITY). THIS DCM SETS THE PARAMETERS FOR * 
i EACH DRIVE DURING THE "LOG-ON" OPERATION. THE* 
S FORMAT.COM PROGRAM WRITES AN IDENTIFICATION SECTOR * 
? WHICH PROVIDES THE NEEDED INFORMATION. IF THIS * 
■ IDENTITY SECTOR IS NOT PRESENT ON THE DISKETTE, * 

; IT IS ASSUMED TO BE A STANDARD 8" 3740 FORMAT. * 

; THIS PROGRAM CONTAINS A 6 WORD TIMING BLOCK WHICH * 
5 SHOULD BE PATCHED TO MATCH THE USERS DISK DRIVES. * 

? THIS HAS NORMALLY BEEN SET FOR SHUGART SA800/801. * 

; ***************************************************** 


JT *; 
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3 •>> * * •* * * *■>.-* -K- S- ■» it- * -S' * w * * -K- * -K- * -K- -S' “<• >r K- * * * » -X- * * * *• * -S ■» S- ■» 

5 THE FOLLOWING IS A LIST OF THE INTERNAL I/O 
3 ADDRESS ASSIGNMENT'S. THESE PORTS AND 
3 CONTROLS CAN ONLY BE USED BY THE ONBOARD Z80A. 
3 THESE PORTS AND CONTROLS ARE NOT IN THE SI00 
3 BUS ADDRESS SPACE. 


3 (CONTROLLER PORT ASSIGNMENTS) 


0000 

BL.STS == 

00 OH 

5 BOARD STATUS PORT. 

0000 

BL.CTL ?== 

OOOH 

3 BOARD CONTROL PORT. 

0004 

WD.CMD ™ 

004H 

51791 COMMAND REGISTEP. 

0004 

WD.STS -- 

004H 

51791 STATUS REGISTER. 

0005 

WD.TRK == 

005H 

51791 TRACK REGISTER. 

0006 

WD.SEC == 

006H 

51791 SECTOR REGISTOR. 

0007 

WD.DT'A 

007H 

51791 DATA REGISTER. 


3 (CONTROLLER FUNCTION 

ASSIGNMENTS) 

0008 

XP.STP == 

008H 

5 ISSUE STEP PULSE. 

0010 

XP.MTO == 

01 OH 

3 MOTOR TURN OFF. 

0020 

XPIRR — 

020H 

? S10 0 I N f — R E Q E E 8 E T« 

0040 

XP.MTX == 

04 OH 

5 MOTOR TIME EXTEND. 

0080 

XP.DSH 

080H 

5 DATA SYNC HOLD. 




3 THE FOLLOWING LIST ASSIGNS EACH BIT POSITION 


5 AND FUNCTION OF THE BOARD CONTROL PORT (BL.CTL) 


3 (BIT ASS 

IGNMENTS) 


0001 

BC.DSA == 

0000000IB 

5 DRIVE SELECT A (2*0). 

0002 

BC.DSB « 

0000001OB 

5 DRIVE SELECT B (2*1). 

0004 

BC.DSE == 

OOOOO 1OOB 

5 DRIVE SELECT ENABLE. 

0008 

BC.EIA == 

00001OOOB 

5 ElA SIGNAL LEVEL OUT. 

0010 

BC.DDE =~ 

0001000OB 

5 DOUBLE DENSITY ENABLE. 

0020 

BC.DAS == 

00100000B 

5 DIRECTION AND SIDE 

0040 

BC.PCA == 

01OOOOOOB 

5 PRECOMP SELECT A. 

0080 

BC.PCB == 

100000OOB 

5 PRECOMP SELECT B. 


3 (FUNCTON 

ASSIGNMENTS) 

0003 

BC.DSN == 

BC.DSAIBC.I 

JSB 5 DRIVE NMBR MASK. 

UOOO 

BC.SDS 

0 

5 SINGLE DENSITY. 

0010 

BC.DDS == 

BC.DDE 

3 DOUBLE DENSITY. 

0040 

BC.PCH ~= 

BU«PuA 

5 PRECOMP - HEAVY. 

0080 

BC.PCM == 

BC.PCB 

5 PRECOMP ~ MEDIUM 

U< )i :< ) 

BC.PCL == 

BC.PCA!BC.PCB 5 PRECOMP ~ L1GHT. 

0000 

BC.PC2 == 

0 

5 PRECOMP - OFF. 
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. THE FOLLOWING LIST DEFINES EACH BIT AND 
5 FUNCTION OF THE BOARD STATUS PORT (BL.STS). 


0001 

BS.USO =~ 

0000000IB 

1USER SWITCH 0. 

0002 

BS.US1 == 

0000001OB 

HUSEE SWITCH 1. 

0004 

BS.TST == 

000001OOB 

? TEST MODE SWITCH. 

0008 

BS.INT == 

00001OOOB 

5 HOST INT REQUEST. 

0010 

BS.EIA ===== 

000100OOB 

; EIA SIGNAL LEVEL IN. 

0020 

BS.MOF ===== 

00iOOOOOB 

5 MOTOR OFF INIDCATOR. 

0040 

BS.TSD == 

01000000B 

?TWO SIDED DRIVE FLAG. 

0080 

BS. DCN zzz* 

1OOOOOOOB 

? DISK CHANGE INDICATOR 




; THE FOLLOWING IS A L.I 

ST OF COMMAND CODES 


; ISSUED TO 

THE 1791-01 

1 

0001 GSbOOB 

DISK CONTROLLER. 

0010 

DC.HDL == 

?SEEK/LOAD RW HEAD. 

0018 

DC.HDU == 

0001 M'J OOB 

;SEEK/UNLD RW HEAD. 

0080 

DC.RDS == 

1OOOOOOOB 

?READ SECTOR. 

00 AO 

DC. MRS ===== 

101OOOOOB 

5 WRITE SECTOR. 

OOFO 

DC. WET ===== 

1111OOOOB 

5 WRITE TRACK FORMAT. 

00 CO 

DC.EDA == 

11OOOOOOB 

;READ TRACK ADDRESS. 

OODO 

DC-STS == 

1101OOOOB 


ODDS 

DC.IF! == 

11011OOOB 

? FORCED INTERRUPT. 




* THE FOLLOWING LIST CONTAINS ALL THE 
; MASKS USED TO TEST THE 1791-01 STATUS 
; CODES (PORT WD.STS). 


009D 

OOFD 

00E4 

0004 

0020 

00:30 

0004 


DM.RER ===== 
DM.WER == 
DM.FER == 
DM.TKO ===== 
DM.HDL ===== 
DM.DNR == 
DM.LDE ===== 


1001 1 101B 
1111110IB 
1 1100100B 
000001OOB 
001OOOOOB 
1OOOOOOOB 
000001OOB 


?READ ERROR TEST. 

; WRITE ERROR TEST. 

;FORMAT ERROR TEST. 
5 TRACK 0 TEST. 

5HEAD LOAD TEST. 

;DRIVE NOT READY. 

» LOST DATA ERROR. 


-a-## a-s-a-a a-* » a-*-#-#*- #*#•#### ##### 
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DISK CONTROLLER MODULE (DCM) 

MEMORY ASSIGNMENTS 


(BASE ADDRESS FOR DCM) * #■*■**•»■ 


1000 

BASE 


1OOOH 

? BASE ADDRESS. 



(MEMORY BANKS) #####*###*###***•*###* 

j. 000 

BANK.0 

— — 

BASE+OOOOH 

5 BANK 0 DEFINED. 

0400 

BANK. L. 

= == 

0400H 

5 BANK LENGTH. 

1400 

BANK.1 


BANK. O+BANK. L. 

5 BANK 1 DEFINED. 


; (RESTART VECTORS) 


1000 

RST.O 


BANK.O+OOOOH 

5 RESTART 0. 

i 008 

RST. 1 

= = 

B A N K« 0+0008H 

;RESTART 1. 

1010 

RST.2 

= =5 

BANK.0+001OH 

;RESTART 2. 

1018 

:, RST.3 


BANK. 0+00181-1 

;RESTART 3. 

1020 

RST. 4 

--- 

BANK.0+0020H 

;RESTART 4. 

1028 

RST. 5 


BANK.0+0028H 

5 RESTART 5. 

1030 

RST. 6 


BANK.0+0030H 

5 RESTART 6. 

1038 

RST. 7 

== = 

BANK.0+0038H 

5 RESTART 7. 



(INTERRUPT VECTORS) 

##***#**######**- 

1038 

HR.INT 

rss: 

RST. 7 

;MASKABLE. 

1066 

NM.INT 

~- :s = 

BANK.0+0066H 

?NON MASKABLE. 


? *•*•&#### 

-K* •><• -X* 

(I/O COMMUNICATION 

) #####«####*##«-# 

1370 

IG.BLK 

nr 

BANK.0+0370H 

;I/0 BLOCK BEGIN 

i 370 

TP.STK 

„:"u: 

10.BLK+OOOOH 

? TOP OF STACK. 

1370 

CMD.BK 


10.BLK+OOOOH 

;COMMAND BLOCK. 

1380 

BUF.BG 


10.BLK+0010H 

; S E C T 0 R h U F F E R. 

1700 

FMT.BG 


BANK.1+030OH 

;FORMAT BUFFER. 

i 708 

FMT.PS 

r=rr. 

FMT.BG+0008H 

;FORMAT PROGRAM. 


i 
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DISK CONTROLLER MODULE (DCM) 

MACRO DEFINITIONS 


? **** ********** ************* ************************* 
5 PAUSE IS USED AFTER THE 179X-01 IS ISSUED A COMMAND 
; AND BEFORE THE 179X-Q1 STATUS REGISTER IS READ. * 
? THIS ALLOWS THE 179X-01 TO -DIGEST- THE COMMAND! * 
; **************************************************** 

.DEFINE PAUSE = C 

XTHL 

XTHL 

XTHL 

XTHL 3 

; ***** ***** ******************************** *** ******* 
; WAIT IS A RESTART CALL TO THE TIMER SUBROUTINE * 

? ENTRY. THIS SUBROUTINE PROVIDES MOST OF THE * 

5 TIMING USED BY THE DOUBLE D CONTROLLER. * 

; **************************************************** 

.DEFINE WAIT = C 
RST 13 

;******* (ASSEMBLER DIRECTIVES) ********************* 


0019 
001C 


0005 

0009 


n PADS 

.PHEX 
. XL INK 


;******* (TIMING CONSTANTS) ************************* 


TMR.FC == 
TMR.NC == 


0019H ;TIMING CONSTANT, FIRST PASS. 

001CH ;TIMING CONSTANT, NORMAL PASS. 


;******* (FiETRY VALUES) ***************************** 


RTY.SK « 5 5 REPOSITION R/W HEAD ON RETRY. 

RTY.LS == 9 5 LAST REPEATED RETRY. 


**************************************************** 
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1000 

i000 C3 0000 
1003 C3 1780 
1006 1041 


5 

; THE FOLLOWING AREA IS THE INITIAL START JUMP TABLE. * 
. THE first JUMP IS EXECUTED WHEN THE ONBOARD Z80A IS * 
; RESET. THE SECOND JUMP IS THE DCM ENTRY FROM A * 
5 BOOTSTRAP LOADER. THIS ENTRY ASSUMES DCM HAS BEEN * 
? LOADED INTO DOUBLE D BANK 1 BY THE LOADER ROUTINE. * 
? THE LAST TWO BYTES HOLD THE JUMP ADDRESS USED BY * 
; RESTART INTERRUPT ROUTINE AT BANK 0 + 0380H. * 
; ****************************************************** 


.LOC RST.O 

JMP —0— C L jr |? CL 

JMP INIT.B+BANK.L 

HR.VEC: .WORD X.CUTE 


j BEGINNING. 

5NOT IMPLEMENTED YET. 

?INIT - BOOTSTRAPED. 
?BUS INTERRUPT VECTOR. 


; ****************************************************** 
? THE FOLLOWING SUBROUTINE IS THE ENTRY POINT FOR THE * 
; DISK CONTROLLER TIMING MODULE. THIS MODULE PROVIDES * 
; DELAYS WHICH ARE MULTIPLE'S OF 100 MICROSECONDS. THE * 
5 CONTENTS OF REGISTER PAIR DE DETERMINES THE TOTAL * 
! PERIOD. (DELAY = (DE) * 100 MICROSECONDS). THIS * 
? SUBROUTINE IS ENTERED BY THE MACRO “WAIT". * 

; ****************************************************** 


1003 

1003 06 i 9 

100A 1OFE 

100C C3 1074 


.LOC RST.l 

MV I B,TMR.F'C 

DJNZ 

JMP TICK.E 


;TIMING ENTRY POINT. 

?FIRST TICK CONSTANT. 4 " 
? AUTO DEC UNTIL ZERO. 

5 JUMP TO TICK ENTRY. 


1 0 18 
1020 
1028 
1030 


; ****************************************************** 
5 THE FOLLOWING RESTART LOCATIONS ARE SPARES AT THIS * 
5 TIME. THEY MAY BE USED IN FUTURE UPGRADES. * 

;****************************************************** 

C L Vz A C'S f J) 0 (AtfJ ft' r hJ 

.LOC RST.3 ' ^ 

.LOC RST.4 UT 

.LOC RST.5 

.LOC RST.6 Hi ’ ir 


;***************************************************** 
5 THE FOLLOWING SECTION IS THE MASKABLE INTERRUPT * 

? ROUTINE. THIS ROUTINE IS EXECUTED WHEN RESTARTING * 

? THE Z80 FROM A HALT. THE FUNCTIONS ARE RESET THE * 

5 DOUBLE D INT REG FLIP-FLOP, PUT THE INTERRUPTED * 

; ADDR IN REG DE, AND JUMP ADDRESS AT "HR.VEC". * 

; ***************************************************** 


1038 - 
1038 

DB20 

. LOC 

IN 

HR.INT 
XP.IRR 

103A 

D1 

POP 

D 

103B 

2A 1006 

LHLD 

HR.VEC 

103 E 

E9 

PCHL 



5 HOST INTERRUPT ADDR. 

?RESET INTERRUPT REG FF 
;PURGE INTERRUPTED ADDR 
;LOAD RETURN ADDRESS 
;JUMP RETURN ADDRESS 



***************************************************** 









r 
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5 THE FOLLOWING SECTION HALTS EXECUTION OF THE * 
? ONBOARD ZSOA PROCESSOR. DURING THIS TIME THE HOST * 
5 SYSTEM CAN SWITCH THE CONTROLLER MEMORY INTO THE * 
? SI 00 BUS FOR STATUS CHECK, SETTING COMMAND BLOCK, * 
? AND SECTOR DATA TRANSFERS. * 

: ****** tt#*#*##*######*###*####***##-*##***-#*#'**#*-*####* 




103F 
i 040 


FB 


FETCH 


El 

HLT 


?ENABLE INTERRUPT START 
5 HAL f ON--BOARD PROCESSOR 


; ***************************************************** 
? THE FOLLOWING SECTION GAINS CONTROL AFTER THE DISK * 
? CONTROLLER IS INTERRUPTED FROM THE HALT CONDITION. * 
5 THIS SECTION BRACNCHES TO THE INDIVIDUAL COMMAND * 
? ROUTINES. THE COMMAND TABLE CONTAINS THE ADDRESSES# 
5 FOR THIS DISTRIBUTION. # 

; ***************************************************** 


1041 

3 m 13/0 

X. CUTE: 

Cm.L 

LDA 

i . / w 

CB.CMD 

fi-~- T /" T / f r VJ 

;LOAD HOST COMMAND. 

1044 

£607 


AN I 

..MASK 

5 MASK ANY OPTIONS. 

1046 

87 


ADD 

A 

? GET 2#A VALUE. 

1047 

1600 


MV I 

D, 0 

5ZER0 D REGISTER. 

1049 

5F 


MOV 

E, A 

?DE NOW TABLE OFFSET. 

104 A 

21 1053 


LX I 

H,..CMDT 

“LOAD TABLE ADDRESS. 

1040 

19 


DAD 

D 

? NOW POINTS TO ENTRY. 

104E 

5£ 


MOV 

E, M 

? LOW ORDER ADDR LOAD. 

104F 

2 2«' 


INX 

H 

?POINT TO NEXT BYTE. 

1050 

56 


MOV 

D, M 

,“HI ORDER ADDRESS. 

1051 

EB 


XCHG 


5 BRANCH ADDR IN HL. 

1052 

E9 


F'CHL 


;BRANCH TO COMMAND. 



“ ft#############################*######-###########'&### 

1053 


..CMDT 

;;:r ^r. 


COMMAND TABLE. 

1053 

1 OAF 

..CMOA: 

. WORD 

$.LGON 

;LOG-ON DRIVE. 

1055 

107C 

..CM1A: 

. WORD 

$.READ 

“READ SECTOR. 

1057 

108B 

..CM2A: 

. WORD 

$.WRIT 

;WRITE SECTOR. 

1059 

109 A 

..CM3A: 

. WORD 

$.FORM 

SFORMAT TRACK. 

105B 

1OCC 

..CM4A: 

. WORD 

*.ADDR 

?READ ADDRESS. 

1 OSD 

10CF 

..CMSA: 

. WORD 

$.SPAR 

;SPARE. 

105F 

1OCF 

..CM6A: 

. WORD 

*.SPAR 

;SPARE. 

1061 

1002 

..CM7A: 

. WORD 

*.IDLE 

;BACKGROUND. 

O00 / 


..MASK 

= = 

007H 

;COMMAND MASK. 


; **************************************************** 
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; tt - JHHf - jHHHt #***#**********#****-***********************#*^^ 1 

; THE FOLLOWING SECTION IS THE NON-MASKABLE INTERRUPT* 

? ROUTINE. UPON 1791-01 COMMAND TERMINATION THE ISO * 

? RELIEVES A NON-MASKABLE INTERRUPT. THE STATUS PORT* 

5 IS INTERROGATED AND SAVED (SV.STS). REGISTER IY * 

5 CONTAINS THE RETURN ADDRESS. * 

; *****•«•#*•»•#•»■#•«•* 


1C 


. LOC NM.INT 


5 NON-MASKABLE INT. 


1066 DB04 

1068 A 9 

1069 32 130D 


WD.INT: IN 
XRA 
STA 


WD.STS 
C 


STS 


106C FDE3 

1C) 6 b. ELi 40 


X'flY 

RETN 


;GET 1791 STATUS. 

5 INVERT (1791). 
;SAVE STATUS. 

5 EX CHANGE (SP)<>IY. 
5 RETURN AT OLD IY. 


; #*##-g************************************************ 

; THIS SECTION IS THE REMAINDER OF THE TIMING * 

? SECTION ENTERED BY A RESTART 1. SEE THAT SECTION * 
? FOR THE DESCRIPTION. * 

; tt**#*##########*-^-***-*#-***#********#-****#**#********* 


1070 

061C 

TICK.R: 

MV I 

EC TMR. NC 

5 NORMAL TICK CONSTANT. 

1072 

1OFE 


D-JNZ 

a 

JAUTO DEC UNTIL ZERO. 

1074 

IB 

TICK.Es 

OCX 

D 

;DECREMENT AMOUNT. 

i 075 

/ M 


MOV 

A 7 D 

5 GET HIGH ORDER. 

1076 

B3 


ORA 

E 

5 AND LOW ORDER. 

1077 

00 


NOP 


5 TIMING ADJUST. 

i 078 

00 


NOP 


;TIMING ADJUST. 

1079 

2 OF 5 


JRNZ 

TICK.R 

;REPEAT UNTIL ZERO. 

107 B 

C9 


RET 


5 RETURN TO USER. 



; #*tf##tt##*####*-SHi-*-**-SH?'#***#**'H-**-»-*-}S-*************'S-*** 








TDL 280 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 9 

DISK CONTROLLER MODULE (DCM) 
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5 %. READ IS THE 'READ-- SEC TOR COMMAND CONTROLLER. # 


107C 

CD 

1 ODD 

$.READ: CALL 

SELECT 

!SELECT DRIVE ROUTINE. 

107F 

C2 

103F 

JNZ 

FETCH 

?DRIVE NOT READY EXIT. 

1082 

CD 

1180 

CALL 

SEEK 

;SEEK TRACK, SET CTLS. 

1085 

CD 

1265 

CALL 

RD.SEC 

5 READ DISK SECTOR. 

1088 

C3 

103F 

JMP 

FETCH 

? GET NEXT COMMAND. 




5 




“ $.WRIT IS 

THE WRITE--SEC 

TOR COMMAND CONTROLLER. * 





*##■#*•*#*****#*##*##****■»■#■*•* 

108B 

CD 

1 ODD 

*. WRIT: CALL 

SELECT 

;SELECT DRIVE ROUTINE. 

108E 

C2 

103F 

■JNZ 

FETCH 

;DRIVE NOT READY EX IT. 

1 09 1 

CD 

1180 

CALL 

SEEK 

• SEEK TRACK, SET CTLS. 

1094 

CD 

1294 

CALL 

WR. SEC- 

5 WRITE DISK SECTOR. 

109 7 

C3 

103F 

JMP 

FETCH 

* GET NEXT COMMAND. 


? %.FORM IS THE FORMAT-TRACK COMMAND'CONTROLLER. * 


109 A 

CD 

1 ODD 

'& • F 0 R M" C A L L 

SELECT 

5 SELECT DRIVE NUMBER. 

1 OSD 

C2 

i 03F 

JNZ 

FETCH 

;DRIVE NOT READY EXIT. 

1OAO 

3 A 

1373 

LDA 

OB*SEC 

?LOAD format FLAGS. 

10A3 

DD? 

705 

MOV 

n 

<: 

Tj 

r 

Q 

X 

1 > 

SRESET DRIVE FLAGS. 

10A6 

CD 

11 SO 

CALL 

SEEK 

» SEEK TRACK, SET CTLS. 

10A9 

CD 

1203 

CALL 

WR.TRK 

;WRITE DISK TRACK. 

10 AC 

C3 

103F 

JMP 

FETCH 

;GET NEXT COMMAND. 


; *.LGON IS THE DRIVE LOG-ON COMMAND CONTROLLER * 


1 OAF 

CD 

1 ODD 

%. LGON: CALL 

SELECT- 

?SELECT DRIVE NUMBER. 

10B2 

02 

103F 

JNZ 

FETCH 

?DRIVE NOT READY EXIT. 

10B5 

AF 


XRA 

A 

5 ZERO REGISTER A. 

10B6 

32 

1372 

STA 

CB.TRK 

?SET TRACK AT 0. 

10B9 

30 


I NR 

A 

;NOW A REG IS 1. 

10BA 

32 

1373 

STA 

CB. SEL- 

5 SET SECTOR TO ID. 

1OBD 

CD 

1180 

CALL 

SEEK 

5 SEEK TRACK, SET CTLS. 

1OCO 

02 

103F 

JNZ 

FETCH 

?POSSIBLE ERROR EXIT. 

10C3 

CD 

1265 

CALL 

RD.SEC 

. ;READ ID SECTOR. 

10C6 

CD 

i 14B 

CALL 

LOG.ON 

? LOG ON DISK DRIVE. 

10C9 

03 

103F 

JMP 

FETCH 

5 GET NEXT COMMAND. 


? ######*#*########•a#######"B-## 
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5 t.ADDR IS THE READ-ADDRESS COMMAND CONTROLLER. * 
; rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr# 


1OCC 


C'3 103F 


$.ADDR s JMP 


FETCH 


;NOT IMPLEMENTED. 


; RRRRR#*#**#*#*#*##*#***##*#########*#####***#***’*#** 

J $.SPAR IS A SPARE COMMAND CONTROLLER. » 

; rr #-»##•rrrrrrrrrrrrrrr- a -rrrrrrrrrrrrrrrrrrrrrrrrr rrrrr 


1 OOF 


03 103F 


$.SPAR: JMP 


FETCH 


j GET NEXT COMMAND. 


; rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr 

; «.IDLE IS THE IDLE COMMAND CONTROLLER. * 

; rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr 


10D2 

DBOO 

*.IDLES IN 

BL.STS 

5 INPUT BOARD STATUS. 

10D4 

E60S 

AMI 

BS.INT 

5 CHECK HOST INTERRUPT. 

10D6 

28FA 

JR 2 

*.IDLE 

;REPEAT IDLE CHECK. 

10 D8 

DB20 

IN 

XP.IRR 

5 RESET INTERRUPT REQ. 

1ODA 

C3 103F 

JMP, 

FETCH 

;GET NEXT COMMAND. 


RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
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T'DL 280 CP/M DISK ASSEMBLER VERSION 2.21 
DISK CONTROLLER MODULE (DCM) 

DRIVE SELECTION ROUTINE 


; aaaaaaaaaaaaaaa aa-aaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaa 


; THE following subroutine is responsible for .* 
; SELECTING THE COMMAND REQUESTED DRIVE NMBR. * 
. BEF0RE DRIVE SELECTION, THE DRIVE MOTOR STATE * 
; IS TESTED, AND IF NEEDED THEY ARE TURNED ON. * 
5 INDEX REGISTER X IS SET TO POINT TO THE NEW * 
“ SELECTED DRIVE IN THE DRIVE TABLE. * 


; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaa aaaaaaaaaaaa 


?aaaaaaa (MOTOR CHECK ROUTINE) aaaaaaaaaaaaaaaaaaaaaa 


i ODD 

DBOO 

SELECT: 

IN 

BL.STS 

;BOARD LEVEL STATUS. 

1ODF 

E620 


ANI 

BS.MOF 

5 CHECK MOTOR STATE. 

10E1 

2807 


JR 2 

..CKDV 

?IF ON, CHECK DRIVE. 

10E3 

DB40 


IN 

XP.MTX 

;ISSUE MOTOR START. 

10E5 

ED5B 1314 


LDED 

TM.MTO 

?MOTOR STARTUP DELAY. 

i QE9 

OF 


WAIT 


?PROGRAMMABLE DELAY. 



; *••*-*###•* (SELEC 

T DRI VE ROUT I NE ) *#*#&**####&#■**#####& 

1OE A 

DB40 

..CKDV: 

IN 

XP.MTX 

?EXTEND MOTOR TIMER. 

1OEC 

3A 1371 


LDA 

CB.DRV 

5 LOAD DRIVE NUMBER. 

1OEF 

DDBEOO 


CMP 

DV.NBR(X) 

;CURRENTLY SELECTED? 

1 OF 2 

2831 


JRZ 

..DVOK 

?G0 IF DRIVE SELECTED. 

1 OF 4 

CD 124B 


CALL 

EX.HDU 

?UNLOAD R/W HEAD. 

1 OF 7 

3 A 130 C 


LDA 

SV.DRV 

;LOAD PORT IMAGE. 

1 OF A 

E6FB 


ANI 

#BC.DSE 

;DRIVE SELECT DSBLD. 

10FC 

D300 


OUT 

BL.CTL 

;ISSUE DESELECT. 

1 OF E 

3A 1371 


LDA 

CB.DRV 

5 LOAD DESIRED DRIVE. 

1101 

E603 


AM 1 

BC.DSN 

;MASK DRIVE NUMBER. 

1103 

D300 


OUT 

BL.. CTL 

;OUTPUT DRIVE NMBR. 

1105 

F604 


UR I 

BC.DSE 

•SET DRV ENABLE BIT. 

1107 

0300 


OUT 

BL.CTL 

?ENABLE NEW DRIVE. 

1109 

32 130C 


STA 

SV.DRV 

5SAVE DRIVE SELECT. 



;aaaaaaa (SET TABLE POINTER) 


1 IOC 

E603 


AN I 

BC.DSN 

'GET DRIVE NUMBER. 

11 OE 

DD21 1322 


LX I 

X,DV.TBL 

;DRIVE TABLE ADDR. 

1 Hi¬ 

11 0007 


L.X I 

D,DV.DES 

?DRIVE ENTRY SIZE. 

ll 15 

3D 

..NEXT: 

DCR 

A 

?DECREMENT DRV NO. 

1116 

FA 1110 


JM 

..SLED 

5 IF S=1 EXIT. 

111 9 

DD19 


DADX 

D 

?POINT NEXT DRIVE. 

111B 

18F8 


JliPE 

. .NEXT 

;TRY THIS DRIVE. 




* (EXIT) 


■a-a *-a * * * a a * a a * * * •«• * a * a-a-a a a a 

111D 

CD 1258 

. .SLED: 

CALL 

EX.STS 

5 CHECK DRIVE STATUS. 

1120 

E680 


ANI 

DM.DNR 

;CHECK DRIVE NOT RDY. 

1 1 22 

32 1377 


STA 

CB«STS 

>* SET COMMAND STATUS. 

1125 

C9 

..DOCK: 

RET 


5 RETURN TO CALLER. 


; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
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DISK CONTROLLER MODULE (DCM) 

RESTORE TRACK 0 

; *#***#*###*##*####**#**###**#*#* tt**#*-####-*#'#-*-***###* 

; HOME.D IS THE SUBROUTINE THAT STEPS THE DISK DRIVE* 

; R/W HEAD OUTWARD UNTIL THE TRACK 0 FLAG BECOMES * 

? ACTIVE OR 255 STEPS HAVE BEEN ISSUED. * 

? ft##*#########**# *##*########*####*########**#####*## 


;*«#**** (RESTORE R/W HEAD) **#***##***4H*#**##*#**##* 


1126 

2EFF 


HOME.D« MVI 

1 -i C- KT 

L. ? jL •-.< •. J 

•SET STEP COUNTER. 

1 128 

CD 1: 

cr 

L O 

..STEP: CALL 

EX.STS 

;CHECK DISK STATUS. 

112B 

E604 


AMI 

DM.TKO 

5 INSPECT TRACK 0 FLG. 

1120 

200C 


JRNZ 

..EXIT 

MF SET, GO ..EXIT. 

112F 

2D 


DCR 

L. 

?DECREMENT STEP COUNT. 

1130 

2815 


•JRZ 

..EROR 

5 ERROR IF 255 STEPS. 

1132 

DBOS 


IN 

XP.STP 

?ISSUE STEP PULSE. 

1 134 

ED5B 

1310 

LDED 

TM.STP 

;LOAD STEP DELAY. 

1138 

CF 


WAIT 


?PROGRAMMABLE DELAY. 

1139 

18 ED 


JMPR 

..STEP 

;TRY STEPPING AGAIN. 




;******* (DRIVE 

IS RESTORED) 

************************ 

113B 

ED5B 

1312 

..EX I1• LDED 

TM.ALS 

;TIME AFTER LAST STEP. 

113F 

CF 


WAIT 


;PROGRAMMABLE DELAY. 

1140 

3E00 


MVI 

A,00OH 

? SET COMPLETE FLAG. 

1142 

DD77C 

51 

MOV 

DV.TRK(X),A 

5 SET TRACK VALUE. 

1145 

A / 


ANA 

A 

?SET RETURN FLAGS. 

1146 

C9 


RET 


JRETURN TO CALLER. 




; **#•»■**•» ( TRACK 

0 NOT FOUND) 

*************************** 

1147 

3EFF 


..EROR: MVI 

A,OFFH 

;SET FAILURE FLAG. 

1149 

A 7 


ANA 

A 

5 SET RETURN FLAGS. 

114A 

C9 


RET 

* 

?RETURN TO CALLER. ; 




c 
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TDL. ZSO CP/M DISK ASSEMBLER VERSION 2.21 
DISK CONTROLLER MODULE (DCM) 

LOG-ON DISKETTE 


; LOG.ON IS THE SUBROUTINE THAT READS THE IDENTITY .* 
; SECTOR FROM THE DISKETTE AND MAKES THE NEEDED * 

; ENTRYS INTO THE DRIVE TABLE. THE SECTOR DATA IS * 
.? ALSO LEFT IN THE SECTOR BUFFER FOR BIOS TO FINISH * 
; THE LOG-ON OPERATION. * 

; tt**-####**####*##*#**##**###**##*####***-*!-#-*#*#*#*#-*##- 

; ##***# (CHECK JADE IDENTITY) ***###*#-*###*######### 


114E 

11 131A 

LOG.ON 

: LX I 

D-, JADE ID 

5ID ADDRESS LOADED. 

114£ 

21 1380 


LX I 

H.ID.LBL 

;SECTOR ID ADDRESS. 

1151 

0608 


MV I 

B,ID.SZE 

5 ID LABEL SIZE. 

1 i 5 3 

1A 

..CKJI 

: LDAX 

0 

5 GET CHARACTER. 

1154 

BE 


CMP 

M 

?CHECK AGAINST DISK. 

1 155 

2017 

JWK H 

-jJRNZ 

..3740 

5 IF DIFFERENT: 3740. 

1157 

1 OF A 


‘ DJNZ 

..CKJI 

?REPEAT OPERATION. 



; (LOG- 

-ON JADE FORMAT) 


1159 

3A 13AO 


LDA 

ID.SPT 

5 SECTORS PER TRACK. 

115C 

DD7703 


MOV 

DV.SPT(X) A 

;STORE IN DRIVE TBL. 

i!5F 

3A 13B0 


LDA 

1D« 6 T U c^er * 

?STAGGER NUMBER. 

1162 

DD7703 


MOV 

DV.SPT(X),A 

5 STORE IN DRIVE TBL. 

1165 

3A 13B1 


LDA 

ID.FLG 

5 SIDE AND DENSITIES. 

1168 

DD7705 


MOV 

DV.FLG(X),A 

?STORE IN DRIVE TBL. 

116B 

03 103F 


Tffir 

“FETCFT^ 

SGET NEXT COMMAND. 



v ( A*6*6UME. -6740 F URMA T ) 

#*##«•###*•»##•»#«•*#*###*# 

116E 

3E1A 

..3740 

s MV I 

A ? Z6 

SSECTORS PER TRACK. 

1170 

DD7703 


MOV 

DV.SPT(X),A 

5 STORE IN DRIVE TBL.. 

1 173 

3E01 


MVI 

A ’ 1 TT7 

;STAGGER NUMBER. 

1175 

DD7703 


MOV 

DV.SPT(X),A 

5 STORE IN DRIVE TBL. 

1178 

3 ECO 


MVI 

A,ID.FLD 

5SIDE AND DENSITIES'. 

117 A 

DD7705 


MOV 

DV.FLG(X),A 

!STORE IN DRIVE TBL. 

117D 

C3 103F 


oirr~ 

•FETCH— 

5 GET NEXT COMMAND. 
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3 THE FOLLOWING SUBROUTINE PERFORMS THE TRACK SEEK * 
3 OPERATION. AFTER THE SEEK OPERATION, THE DENSITY * 
5 AND PRE-COMPENSATION CONTROLS ARE SET. * 




; *##*#*# (HEAD 

LOADING) 


1 180 

CD 1258 

SEEK: 

CALL 

EX.STS 

5 GET DRIVE STATUS. 

1183 

E620 


AN I 

DM.HDL 

5 CHECK HEAD LOAD. 

1185 

2008 


URN 2 

..HLDD 

5 BYPASS IF LOADED. 

1187 

CD 123E 


CALL 

EX.HDL 

3LOAD R/W HEAD. 

118 A 

ED5B 130E 


LDED 

TM.HLD 

3 HEAD LOAD DELAY. 

11 sE 

C F 


WAIT 


3 PROGRAMMABLE DELAY. 



5#**#**# (CHECK 

TRACK NUMBER) *###*####* *#*##* ##***-#*- 

118F 

3A 1372 

..HLDD: 

L.DA 

CB.TRK 

5 REQUESTED TRACK NO. 

1192 

DD9601 


SUB 

DV.TRK< X) 5TRACK OFFSET REQ. 

1195 

2006 


JRN2 

. . DSET 

3IF OFFSET, SET DIRC. 

1197 

DD7E06 


MOV 

A, DV. CTL (X ) 5 GET PREVIOUS CTLS. 

119A 

C3 122B 


JMP 

. .EXIT 

3GOTO SET CONTROLS. 



?##**•*** (SET DIRECTION 

AND STEP COUNTER) ■»###•»***«•** 

119D 

F5 

..DSET: 

PUSH 

PSW 

5 SAVE REG A AND FLGS. 

119E 

ED5B 1318 


LDED 

TM.SAW 

? STEP AFTER WRITE. 

11A2 

CF 


WAIT 


;PROGRAMMABLE DELAY. 

HAS 

FI 


POP 

PSW 

;RESTORE A AND FLGS. 

11A4 

380A 


JRC 

. .SOUT 

;IF CARRY STEP OUT. 

11A6 

6F 

..SIN: 

MOV 

L, A 

? MOVE OFFSET TO L. 

11A7 

3A 130C 


LDA 

SV.DRV 

?DRIVE SELECT BITS. 

11AA 

F620 


OR I 

BC.DAS 

?SET DIRECTION IN. 

11 AC 

D300 


OUT 

BL.CTL 

;OUTPUT CONTROL. 

11AE 

1 SOB 


JMPR 

. .STEP 

5 GOTO STEP ROUTINE. 

11 BO 

ED44 

..SOUT: 

NEG 


3 COMPLEMENT OFFSET. 

11B2 

FA 1238 


JM 

. . HOME 

3 BETTER HOME DRV. 

11B5 

6F 


MOV 

L, A 

5 MOVE OFFSET TO L. 

11B6 

3A 130C 


LDA 

SV.DRV 

3 DRIVE SELECT BITS. 

11B9 

D300 


OUT 

BL.CTL 

5 SET DIRECTION OUT. 



5 ■BB-B-BBB-B- ( ISSUE 

STEPS) 


11BB 

DB08 

..STEP: 

IN 

XP.STP 

5 ISSUE STEP PULSE. 

11BD 

ED5B 1310 


LDED 

TM.STP 

3 STEP DELAY TIME. 

11C1 

CF 


WAIT 


3PROGRAMMABLE DELAY. 

5.1C2 

2D 


DCR 

L 

3 DECREMENT STEPS. 

11C3 

20F6 


URN 2 

. . STEP 

3 REPEAT OPERATI ON 

11C5 

ED5B 1312 


LDED 

TM.ALS 

3 MORE AFTER LAST STP. 

11C9 

CF 


WAIT 


3 PROGRAMMABLE DELAY. 
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T'DL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
DISK CONTROLLER MODULE (DOM) 

SEEK TRACK ROUTINE 


; ******* < TRACK SECTION DISTRIBUTE) ***************** 


1 iCA 

3 A 1372 


LDA 

CB.TRK 

;CURRENT TRACK NMBR. 

11 CD 

FEOl 


CPI 

1 

;COMPARE AGAINST 1. 

11CF 

380C 


URC 

. . TRKO 

5 IF CARRY, TRACK 0. 

11D1 

2811 


JRZ 

. . TRK 1 

iIF ZERO, TRACK 1. 

11D3 

FE1A 


CPI 

26 

5 CHECK OUTER THIRD. 

11D5 

38 IE 


•JRC 

. . OUTS 

;GOTO OUTS SETTING. 

11D7 

FE34 


CPI 

52 

;CHECK MIDDLE THIRD. 

11D9 

382B 


•JRC 

. . MIDS 

? GOTO MIDS SETTING. 

11DB 

SOSA 


JRNC 

. . INSD 

5 GOTO INSD SETTING. 



;******* (TRACK 

ZERO) ********** 


11DD 

3A 130C 

..TRKO: 

LDA 

SV.DRV 

5 GET DRIVE NUMBER. 

11 EG 

F6C0 


OR I 

BC.SDSSBC.PCL 

5SDEN AND PC-LOW. 

11E2 

1844 


JMPR 

. . CTLS 

? JUMP CONTROLS SET. 



? -K- ->r ■><' >r >;• 

h* (1 RACK 

ONE) #***###* ######### 

11E4 

DDCB054E 

. . TRK1 •” 

BIT 

DF,T1D,DV.FLO(X) 

j TRK 1 DENSITY FLG. 

11ES 

3A 130C 


LDA 

SV.DRV 

;GET DRIVE NUMBER. 

11EB 

2004 


JRNZ 

. . T1DD 

;GO TO SET DDEN. 

1 1ED 

F6C0 


OR I 

BC.SDS!BC.PCL 

■SDEN AND PC-LOW. 

11EF 

1837 


JMPR 

. . CTLS 

;JUMP CONTROLS SET. 

11F1 

F6D0 

. . HDDs 

OR I 

BC. DDS BC. PCL 

? DDEN AND PC-LOW. 

11F3 

1833 


JMPR 

ii m C i L ‘in 1 

;JUMP CONTROLS SET. 


;******* (OUTSIDE TRACKS') *************************** 


11F5 

DDCB0556 

..OUTS: BIT 

DF- r . DTD, D V. FLG ( X ) 

; DATA 

DENSITY FLG. 

11F9 

3 A 130C 

LDA 

SV.DRV 

;GET DRIVE NUMBER. 

11FC 

2004 

JRNZ 

..OTDD 

? GO TO 

SET DDEN. 

11FE 

F6C0 

OR I 

BC.SDS!BC.PCL 

? SDEN 

AND PC-LOW. 

1200 

1826 

JMPR 

..CTLS 

5 JUMP 

CONTROLS SET. 

1202 

F6D0 

..OTDD s OR I 

BC.DDS!BC.PCL 

5 DDEN 

AND PC-LOW. 

1204 

1822 

JMPR 

..CTLS 

; jump 

CONTROLS SET. 



;******* (MIDDLE TRACKS) **************************** 

1206 

DDCB0556 

..Ml'DS: BIT 

DF.DTD,DV.FLG(X) 

: DATA 

DENSITY FLG. 

120A 

3 A 130C 

LDA 

SV.DRV 

? GET DRIVE NUMBER. 

120D 

2004 

JRNZ 

..MDDD 

; GO TO 

SET DDEN. 

12 OF' 

F6C0 

OR 1 

BC.SDS!BC.PCL 

SDEN 

AND PC-LOW. 

1211 

1815 

•JMPR 

..CTLS 

; JUMP 

CONTROLS SET. 

1213 

F690 

..MDDD: ORI 

BC.DDS!BC.PCM 

? DDEN 

AND PC-MED. 

1215 

1811 

JMPR 

..CTLS 

; jump 

CONTROLS SET. 


C 
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;#*#*##* (INSIDE TRACKS) ft*##########**##*#*#*###*#*# 


1217 

DDCB0556 

..INSD* 

BIT 

DF.DTDj DV.FLO(X) "DATA DENSITY FLG. 

121B 

3A 130C 


LDA 

SV.DRV 5 GET DRIVE NUMBER. 

121E 

2004 


JRNZ 

..INOD ?G0 TO SET DDEN. 

1220 

F6C0 


OR I 

BC.SDSIBC.PCL * SDEN AND PC-LOW. 

l «Im* Jim »tt— 

1804 


.JMF'R 

..CTLS ;JUMP CONTROLS SET. 

1224 

F650 

..INDDs 

OR I 

BC.DDSIBC.PCH i DDEN AND PC-HI. 

1226 

1800 


JMF'R 

..CTLS ’JUMP CONTROLS SET. 



?*## ##■«■•* (SET 

CONTROLS )ft*#**#**##*##**#**##***#***## 

1228 

DD7706 

..CTLSs 

MOV 

DV.CTL(X),A 5 SAVE CONTROLS. 

122B 

D300 

..EXIT: 

OUT 

BL.CTL ?OUTPUT CONTROLS. 



$#*#####( SET 

TRACK VALUES AND EXIT )#####*#*#*####*# 

122D 

3A 1372 

..TKVL: 

LDA 

CB.TRK ;REQUESTED TRACK NO. 

1230 

DD7701 


MOV 

DV,TRK(X)s A 5SET DRIVE TABLE. 

1233 

A 9 


XRA 

C 5 INVERT (1791-01). 

1234 

D305 


OUT 

WD.TRK 5 SET TRACK REGISTER. 

1236 

AF 


XRA 

A ?SET ZERO FLAG. 

1237 

C9 


RET 

?RETURN TO CALLER. 



;*###### ( CALIBRATE TRACK NUMBER ) ♦ft*#*#******#***#** 

1238 

CD 1126 

..HOME: 

CALL 

HOME.D 5 HOME SELECTED DRIVE. 

1 23B 

C3 118F 


JMP 

..HLDD ? NOW SEEK TRACK. 


c 
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TDL ZS’O CP/M DISK ASSEMBLER VERSION 2.21 
DISK CONTROLLER MODULE (DCM) 

179X-01 UTILITY SUBROUTINES 


; ***************************************************** 
; THE FOLLOWING TWO SUBROUTINES PROVIDE THE R/W HEAD * 
? LOAD AND UNLOAD FUNCTIONS. AS THE 179X-01 DOES NOT* 
; OFFER THIS EXPLICIT COMMAND, THE SEEK COMMAND * 

. (TYPE-1) IS USED WITH THE LOAD BIT SET TO EITHER * 
J LOAD OR UNLOAD. THE DESTINATION TRACK IS SET EQUAL* 
; TO THE CONTENTS OF THE TRACK REGISTER TO BYPASS THE* 
,• 179X-01 STEP FUNCTION. REFER TO THE FLOW-CHART FOR* 

? 179X--01 TYPE 1 COMMANDS. * 

5 **************** ***************** ************ ******** 


;******* (LOAD R/W HEAD) ***************************** 


123E 

FDE1 

EX.HDL: 

POP 

Y 

;RETURN ADDR IN REG Y. 

i 24 0 

DB05 


IN 

WD.TRK 

? READ PRESENT TRACK. 

1242 

D 307 


OUT 

WD.DTA 

5 SET DESTINATION TRK. 

1244 

3E10 


MVI 

A,DC.HDL 

;load head load cmnd. 

1246 

A V 


XRA 

c 

?INVERT < 1791-01). 

1 2 4 / 

D304 


OUT 

WD.CMD 

?ISSUE COMMAND. 

1249 

18FE 

JMPR 

?******* (UNLOAD R/W HEAD) 

5WAIT FOR INTERRUPT. 

************************* 

124B 

FDE 1 

EX.HDU: 

POP 

Y 

?RETURN ADDR IN REG Y. 

124D 

DB05 


IN 

WD.TRK 

;READ PRESENT TRACK. 

124F 

D307 


OUT 

WD.DTA 

?SET DESTINATION TRK. 

1251 

3E18 


MVI 

A,DC.HDU 

5 LOAD UNLD HEAD CMND. 

1253 

A 9 


XRA 

c 

INVERT (1791-01 ) . 

1254 

D304 


OUT 

WD.CMD 

;ISSUE COMMAND. 

1256 

18FE 


JMPR 


SWAIT FOR INTERRUPT. 


; **************************************************** 


THE FOLLOWING SUBROUTINE IS USED TO UPDATE THE * 
? 179X-01 STATUS PORT TO REFLECT CURRENT TYPE-1 * 
? STATUS CODES. NOTE THIS IS A TYPE-4 COMMAND * 
5 WITH NO INTERRUPT CONDITIONS SET. * 


; **************************************************** 


1258 

3ED0 

EX.STS: MVI 

A ? DU u 'z» 1 

5 LOAD SET-STATUS CMND. 

125A 

A 9 

XRA 

G 

JINVERT (1791-01). 

125B 

D304 

OUT 

WD H CMD 

5 ISSUE COMMAND. 

125D 

E3 

PAUSE 


?PAUSE FOR 179X-01. 

1261 

DB04 

IN 

WD.STS 

?INPUT STATUS PORT. 

1 2 6 6 

A 9 

XRA 

c 

?INVERT (1791-01). 

1264 

C9 

RET 


. ?RETURN TO USER. 


**************************************************** 








) 
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; ft####*##*#####*####################**##########*#**## 

; RD.SEC IS THE SUBROUTINE THAT INTERACTS WITH THE * 
? 179X-01 DURING READ SECTOR OPERATIONS. THIS SECTION * 
? INITIATES THE DISK TRANSFERS SERVICES THE CONTROLLER* 
; CHIP DURING DATA TRANSFERS AND TERMINATES OPERATION * 
? WHEN FINISHED. ERROR DETECTION IS IMPLEMENTED AND * 
? RETRIES ARE EXROUTED IF DATA ERRORS ARE DETECTED. * 

V ft**######*##**###*###*#######*###*##*########**######* 


##*#*#* (INITIALIZE READ OPERATION) **************** 


1265 

AF 

RD.SEC: 

XRA 

A 

5 ZERO A REGISTER. 

I 2 C» 6 

32 1SOB 


STA 

ERR.CT 

;ZERO ERROR COUNT. 

1269 

3A 1373 


LDA 

CBm SEC 

?LOAD SECTOR NMBR. 

126 C 

A 9 


XRA 

c 

;INVERT (1791-01). 

126 D 

D306 


OUT 

WD.SEC 

JSET SECTOR REGISTER. 

126 F 

FD21 1288 

..RTRYs 

LX I 

Y-, . .NMI 

;LOAD NMI VECTOR. 

1273 

2A 1309 


LHLD 

BUF.ST 

?BUFFER START. 

1276 

3E80 


MV I 

A> DC.RDS 

5READ SECTOR COMMAND. 

1278 

A 9 


XRA 

c 

5 INVERT (1791-01). 

1279 

D304 


OUT 

WD.CMD 

5 ISSUE READ COMMAND 

127 B 

hi 3 


PAUSE 


? ALLOW 1791 TO SETTLE 



;#*##### (DATA 

TRANSFER 

LOOP) ####***#########*#*#*## 

127F 

DB80 

..REPTs 

IN 

XP.DSH 

J HOLD FOR DATA 

1281 

DB07 


IN 

WD.DTA 

;INPUT DATA. 

1283 

A9 


XRA 

C 

5 INVERT (1791-01). 

1284 

" -y 
/ / 


MOV 

M, A 

?PUT INTO BUFFER 

1 ^.OsJ 

2-3 


I MX 

H 

■BUMP BUFF POINTER 

1286 

18F7 


JMPR 

. . RE'PT 

;GO FOR ANOTHER 




< CHECK 

STATUS) 

ft**##**####*####*#####**#*### 

1 x.-. *„• <_* 

E69D 

..NMI: 

AN I 

DM.RER 

5 TEST FOR ERRORS. 

128 A 

32 1377 


STA 

CB.STS 

j SAVE READ STATUS. 

128D 

C8 


RZ 


5 RETURN COMPLETE. 

1 -C. o E 

CD 12DC 


CALL 

CHK.RT 

;CHECK ABOUT HETRYS. 

1291 

28DC 


•JRZ 

..RTRY 

?PERFORM RETRY. 

1293 

C9 


RET 


;ERROR RETURN. 




c 


5 •ft#***#-!!-#-!?--?}-#******#####-!!-**#*#***#**##**##*#*#*##***#*-* 
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TDL 280 CP/M DISK ASSEMBLER VERSION 2.21 
:USK CONTROLLER MODULE (DCM) 

\IE I TIE SECTOR DR IVER 


; ***************************************************** 
; UR.SEC IS THE SUBROUTINE THAT INTERACTS WITH THE .* 
; 179X—01 DURING WRITE SETOR OPERATIONS. THIS SECTION* 
; INITIATES THE DISK TRANSFER, SERVICES THE CONTROLLER 
? CHIP, AND TERMINATES THE OPERATION. ERROR DETECTION* 
,” IS IMPLEMENTED. * 

; ***************************************************** 


;******* (INITIALIZE WRITE OPERATION) *************** 


1294 

AF 

WR.SEC: XRA 

A 

5ZER0 REGISTER. 

1295 

32 130B 

ST A 

ERR.GT 

5 SET ERROR COUNTER. 

1298 

JA lo'/y 

LDA 

CB.SEC 

5 LOAD SECTOR NMBR. 

129B 

A 9 

XRA 

c 

,“ INVERT (1791-01). 

129C 

U 306 

OUT 

WD.SEC 

;SET SECTOR REGISTER. 

129 L 

FD21 12B7 

..RTRY: LXI 

Y,..NMI 

;SET NMI RETURN. 

1 2m 2 

2A 1809 

LHLD 

BUF.ST 

5 BUFFER START. 

1 2 A •:.« 

3EA0 

MV I 

A, DC. WR: 

S 5 LOAD WRITE SECTOR CMD. 

1 2 A / 

A 9 

XRA 

c 

? INVERT (1791-01). 

1 2 A o 

0304 

OUT 

WD.CMD 

;ISSUE COMMAND. 

1 2AA 

E3 

PAUSE 


;ALLOW 1791 TO SETTLE 



;******* (DATA 

TRANSFER 

LOOP) ###**•**##**##*## *#*•*#*•«• 

12 At. 

DBSO 

..REPT: IN 

XP.DSH 

SHOLD FOR DATA REQ. 

12B0 

7E 

MOV 

A, M 

5 GET DATA BYTE. 

12B1 

A 9 

XRA 

C 

SINVERT (1791-01). 

12B2 

D307 

OUT 

WD.DTA 

;OUTPUT DATA BYTE. 

12B4 

23 

I NX 

H 

?INCREMENT BUFF POINTER 

12 B U 

1 S'F7 

JMPR 

..REPT 

;REPEAT SEQUECE 



;******* (CHECK 

STATUS) 

***************************** 

1 2B / 

E6FD 

..NMI : ANI 

DM.WER 

; TEST FOR WRITE ERRORS. 

12B9 

32 1377 

ST A 

CB.STS 

; STORE WRITE STATUS. 

12BC 

CS 

RZ 


; RETURN COMPLETE. 

12BD 

CD 12DC 

CALL 

CHK.RT 

; CHECK ABOUT RETRYS. 

12C0 

2 8 DC 

JRZ 

..RTRY 

? PERFORM RETRY. 

12C2 

C9 

RET 


; ERROR RETURN. 


************* a-******** *************** *************** 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 
DISK CONTROLLER MODULE (DCM) 

WRITE TRACK DRIVER- 


PAGE 20 


; s-s-•»#**•* ■*■}!•**•#-a-##* -a-#* #**«••* #### 

; WR.IRK IS THE SUBROUTINE WHICH INITIATES A FORMAT * 
5 TRACK COMMAND (WRITE-TRACK.179X-01 TYPE 3). THE * 
FORMATTING BYTE STREAM IS PROVIDED BY A PROGRAM * 
; WHICH MUST BE PRESENT IN THE FORMAT BUFFER. * 

; aa###*##**-**#**-*-*##*##**#**##*#-*#-*'*-*-*#*--*#-*#*'*#'**##** 



; a#*# aaa (INITIALIZE WRITE TRACK) aaaaaaaaaaaaaaaaaaa 


12C3 

FD21 12D3 

WR.TRK: LX I 

Y,..NMI 

> LOAD NMI VECTOR. 

12C7 

3EF 0 

MV I 

A, DC.WRT 

5 WRITE TRACK CMND. 

12C9 

A 9 

XRA 

c 

;INVERT (1791-01). 

12CA 

D304 

OUT 

WD.CMD 

;ISSUE COMMAND. 

12CC 

E3 

PAUSE 


5 ALLOW 179X TO SETTLE. 

12D0 

C3 1708 

JMP 

FMT.PS 

;FORMAT PROG START. 



; aaaaaaa (CHECK 

COMPLETION 

STATUS) aaaaaaaaaaaaaaaaaa 

12D3 

E6E4 

..NMIs ANI 

DM.FEE 

J TEST FOR ERROR'S. 

12D5 

32 1377 

STA 

CB.STS 

5 STORE FORMAT STATUS. 

12DW 

22 137A 

SHLD 

CW.LNG 

5 DISPLAY TRAIL BYTES. 

12DB 

C9 

RET 


5 RETURN TO USER. 


; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 





TDL ISO CP/M DISK ASSEMBLER VERSION 2.21 PAGE 

DISK CONTROLLER MODULE (DOM) 

RETRY CONTROLLER 


; *#######***##*#*####*#####*####*tt*##* **#**####*#’*### 

; CHK.RT IS THE SUBROUTINE USED BY RD.SEC AND * 

; WR. SEC TO COUNT RETRY OPERATIONS AND PERFORM A * 
; RE-S-EEK OPERATION WHEN NEEDED. * 

; a-a-a-a-a-a- a-*#aa-a-a-aaaa#a-#a-a-a-a-a-a-#a-a-a-*a' a-a-#a-a-aaa-aa-a-aaaaa-a’-tHt-H- 

; a-a-a-a-aa s (CHECK IF RECOVERABLE) aaaaaaaaaaaaaaaaaaaa# 


12 DC 

E680 

CHK.RT: ANI 

DM.DNR 

;TEST NOT READY BIT. 

12DE 

2023 

JRNZ 

. .EXIT 

5 CAN NOT RECOVER. 

12E0 

3 Pi 13/6 

LDm 

CB.MOD 

>GET COMMAND MODE. 

1 2E3 

£680 

AN I 

CM.NET 

i NO RETRYS CHECK. 

12E5 

2021 

JRNZ 

. . EXIT 

?SHOULD NOT RECOVER. 

12E7 

DB40 

IN 

XP.MTX 

5 MOTOR TIME EXTEND. 



;aaaaaaa (RECORD RETRY) 

##*##*##*##**####***####*#*## 

12E9 

3 m 1 30 B 

LDA 

ERR.CT 

;GET ERROR COUNT. 

12EC 

30 

I NR 

A 

;INCREMENT. 

12 ED 

32 1 SOB 

STA 

ERR.CT 

;STORE NEW COUNT. 

12 TO 

FE05 

CPI 

RTY.SK 

?SHOULD TRY SEEK? 

12F2 

2003 

JRNZ 

.«CKLS 

5 IF NOT, CHECK LAST. 



; aaaaaaa (REPOS 

ITI ON R/W 

HEAD) ##******#******-*###*#•#• 

12F4 

CD 1126 

CALL 

HOME. D 

?HOME SELECTED DRIVE. 

12F7 

.2 OOF 

JRNZ 

. . EXIT 

;ERROR EXIT. 

12r V 

CO 1180 

CALL 

SEEK 

? SEEK DESIRED TRACK. 



; aaaaaaa (HOLD 

READ GATE 

EUR 3/4 REVoLUTION) aaaaaaaa 

12FC 

FE09 

..CKLS: CPI 

RTY.LS 

? WAS THIS THE LAST. 

12FE 

2807 

JRZ 

..STNZ 

5 ERROR LAST RETRY. . 

1300 

ED5B 1316 

LDED 

TM.PLD 

?PHASE LOCK DELAY. 

1304 

CF 

WAIT 


,* PROGRAMMABLE DELAY. 

1305 

A F 

XRA 

A 

?CLEAR FOR RETRY. 

1306 

C9 

RET 


? TRY AGAIN EXIT. 



; a-a-a-a-a-a-a- (ERROR 

£X I T ) #*####****#*##*###*##**##*###•*•»■ 

1307 

3C 

..STNZ: INR 

A 

5 SET NOT ZERO. 

1308 

C9 

..EXIT: RET 


5 ERROR EXIT. 


•a a a a a a a -a a a a a a a- * a- a a- * a * a- a a a- -a a- a- a * * a * * -a- * a * a- a a * * a * a a- a a -a- * a- 






TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
DISK CONTROLLER MODULE (DCM) 

CONSTANTS AND VAR I ABL.ES 


PACE 


< BUFFER POINTERS) #*#*******###*■*#•«■■»■•«•■«•#■ 


1309 

1380 

BUF.ST s .WORD BUF . BG 

5 BUFFER START ADDRESS 

i 



i 

13fc)B 

00 

ERR.CT: .BYTE 0 

5 RETRY ERROR COUNTER. 



“ & # # >" >r >:• :~r < H 0 L. D 1 N 0 A R El A S ) 

*###•&* # -X- *> # # # & # # # & # & * # S 

130C 

00 

bV • DRV » „ BY 1 E 0 

SBL.CTL DRIVE BITS. 

130D 

00 

SV.STS5 .BYTE OOOH 

51791 STATUS SAVE 



?*##**** < TIMING VALUES, 

0. 1 MS) •SHM**##•##* 

130E 

015E 

TM.HLDs .WORD 350 

5 HEAD ENGAGE TIME. 

1 1 0 

0050 

TM.STP: .WORD 80 

5 STEPPER INTERVAL. 

1312 

0050 

1 M « A L.. S >" « W 0 E D 8 0 

5 AFTER LAST STEP. 

1314 

0001 

TM.MTO: .WORD 1 

5 MOTOR START UP. 

1316 

04B0 

TM.PLD : .WORD 1200 

5 PHASE LOCK RECOVERY. 

1313 

OOOA 

TM. SAW* .WORD .10 

5 STEP AFTER WRITING. 



5 * ENTRY * SA 800 

FDD100 SA 850 



'} 

5 TM.HLDs .WORD 350 

250 350 



5 TM.STPs .WORD SO 

60 30 



5 fM.AL.S5 .WORD 80 

80 120 



5 TM.MTO: .WORD 1 

1 1 



5 TM.PLDs .WORD 1200 

1200 1200 



5 TM.SAW: .WORD 10 

10 10 



5 s-**##*-* (DISKETTE FORMAT LABEL.) -it*****##*#*#**###*## 

131A 

4A6164652044 

JADE ID: .ASCII "JADE* DD 

" 5 DISKETTE ID LABEL. 


UOUb 


ID.SZE 


( 


JADE" ID) 


5 ID LABEL. SIZE. 


1380 
i 3AU 
13 AO 
13B0 
13B1 
0000 


ID. L.BL 
ID.BLK 
ID.SPT 
ID.STG 
ID.FLO 
ID.FLU 


BUF.BG+OOOOH 
ID. LBL+O020H 
ID.BLK+OOOOH 
ID „ BL.K+001 OH 
ID.BLK+0011H 
OOOOOOOOB 


5ID SECTOR LABEL 
;ID BLOCK AREA. 

5 SECTORS/TRACK. 

5 SECTOR STAGGER. 
5 DISKETTE FLAGS. 
53740 FLAGS. 
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TDL 280 CP/11 DISK ASSEMBLER VERSION 2.21 
DISK CONTROLLER MODULE (DCM) 

DRIVE TABLE 



;#####&# 

(DRIVE 

00 

DV.NBR 

ssss 

0001 

DV.TRK 


0002 

DV.SEC 


0003 

DV. S’PT 


0004 

DV.STG 

= = 

0005 

DV.FLG 

=S = 

0006 

DV.CTL 




(DRIVE 

1322 

DV.TBL 

== 

1322 

OOFF00000002 DT.DEO: 

. BYTE 

1329 

U1 F F OO 000002 D T .. DE 1 : 

. BYTE 

1330 

02F F 00000002 

. BYTE 

1337 

0 3 F F00000002 

. BYTE 

133E 

O4FF00000000 DT.DED: 

. BYTE 


TABLE ENTRIES) *#######*###■»'»##*** 

0 5 CURRENT DRIVE NUMBER. 

1 ;CURRENT TRACK NUMBER. 

2 ;CURRENT SECTOR NUMBER 

3 ;SECTORS PER TRACK. 

4 5 SECTOR STAGGER NUMBER. 

5 -SIDE AND DENSITY FLAGS 

6 JLAST CONTROLS USED. 

TABLE AREA) tt*#**#****###***#-*#*-#-* 
;DRIVE TABLE ADDRESS. 

0 » 255 , 0 , 0 , 0 1 DF . DFL. , 0C4H 5 DR IVE 0 . 

1.255, 0,0, 0, DF. DFL, 0C5H DR I VE 1. 

2,255,0,0,0,DF.DFL,0C6H S DRIVE 2. 

3.255, 0, 0, 0 ■> DF. DFL, 0C7H j DR I VE 3. 

4,255,0 7 0 7 0,0 7 0 ;DUMMY. 


000 7 

DV.DES = 



-**###*# 

(FLAG 

voo i 

DF.T1D = 

= 1 

0002 

DF.DTD = 


0003 

DF.TSD = 

— 3 

0002 

DF. DFL == 

~ i <; 


DT.DE1-DT.DEO ;ENTRY SIZE. 

BIT DEFINITIONS) ###-jhhhhhhhhhhh** 

;TRACK 1 DENSITY (1 = DOUBLE). 

7 DATA TRACKS DENSITY (1 = DD). 

■ TWO SIDED < 1 = TWO SIDES). 

F.T1D ;DEFAULT FLAGS. 














TDL 280 CP/M DISK ASSEMBLER VERSION 
DISK CONTROLLER MODULE (DCM) 

1/0 COMMONICAT ION BLOCK 


PAGE" 24 


2.21 


i 


‘ a-##*-## a-### a- a a a a a a*a*a aaaaaaaaa^^ 

; THE FOLLOWING AREA IS DEFINED AS THE COMMAND BLOCK. * 

" THIS AREA IS RESERVED FOR SPECIFICATION BY THE HOST * 

J SYSTEM FOR ALL DISK OPERATIONS. CONTROLLER STATUS * 

; AT COMPLETION OF OPERATION IS PRESENT IN THIS AREA. * 

; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 


1370 .LOG CMD.BK ?COMMAND BLOCK. 


1370 

00 

CB.CMD: 

.BYTE 0 

5 CONTROL COMMAND. 

1371 

00 

CB.DRV: 

.BYTE 0 

;DRIVE NUMBER. 

1372 

00 

CB.TRK: 

.BYTE 0 

STRACK NUMBER. 

.1.3 7 3 

00 

CB.SEC: 

.BYTE 0 

;SECTOR NUMBER. 

1374 

00 

■ CB,FFG: 

.BYTE 0 

;FORMAT FLAGS. 

i 375 

00 

CB.SPR: 

.BYTE 0 

;UNASSIGNED. 

13 76 

00 

CB.MOD: 

.BYTE 0 

5 MODE SELECTS. 

1377 

00 

CB.STS: 

.BYTE 0 

?CONTROLLER STATUS. 

1378 

0000 

CW.LAD: 

.WORD 0 

;LOAD ADDRESS. 

137A 

0000 

CW.LNG: 

.WORD 0 

? LOAD LENGTH 



; aaaaaaa 

(MODE BIT DEFINITIONS) aaaaaaaaaaaaaaaaaaaaaaa 

0080 


CM.NRT 

== 1000000GB 

5 NO RETRYS ( = 1 ). 

i 



; a aa aaaa 

(STATUS BIT 1 

DEFINITIONS) *#*#*##**#*#*#*##### 

t j 

0080 


CS.DNR 

1OOOOOOOB 

5 DRIVE NOT READY. 

0040 


CS.WRP 

=- 01000000B 

;WRITE PROTECTED. 

0020 


CS.BIS 

00100000B 

? NOT ASSIGNED. 

0010 


CS.RNF 

00010000B 

?RECORD NOT FOUND. 

0008 


CS.CRC 

s==s 000010008 

5 CRC ERROR. 

0004 


CS.LDE 

00000100B 

;LOST DATA ERROR. 

0002 


CS.BT1 

0000001 OB 

?NOT ASSIGNED. 

0001 


CS.BTC 

55- 00000001 B 

■NOT ASSIGNED.. 


; aaaaa-aaaaa•a-*######aaaaaaaaaaaaaaaa-a*#a-a-aaa a-aaaaa aaa-aaa 
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TDL ZSO CP/M DISK ASSEMBLER VERSION 
DISK CONTROLLER MODULE (DCM) 

BOOTS!RAPED INITIALIZE 


; ****************************************************** 
9 THIS SECTION RESIDES IN THE DCM SECTOR BUFFER. THIS * 
5 SECTION MOVES DCM FROM BANK 1 DOWN TO BANK 0. THE * 
; C REGISTER IS SET FOR 1791-01 OR 1793-01. THE LAST * 
J OPERATION IS TO READ THE BIOS LOADER SECTOR TO * 
J OVERLAY THIS INITIALIZATION SEQUENCE. BIOS LOADER * 
; THEN READ BIOS INTO BANK 1 AND HALTS. * 

; ****************************************************** 


;*******( EXECUTES IN BANK 1 )************************* 


1380 


. LOC 

BUF.BG 

PRESIDES IN BUFFER. 

1380 

01 0400 

INIT.B: LX 1 

B,BANK.L 

■SET BANK LENGTH. 

1383 

11 1000 

LX I 

D»BANK.0 

■ SET DESTINATION. 

1386 

21 1400 

LX I 

H,BANK.1 

JSET SOURCE ADDR. 

1389 

EDBO 

LDIR 


?MOVE BLOCK. 

13 SB 

C3 138E 

JMP 

..DOWN 

5 JUMP TO NEW IMAGE. 



:: # -a- ( NOW 

IN BANK 0, S 

ET I NT MOEiE )************■**•*■* 

138E 

31 1370 

..DOWN: LXI 

SFVTP.STK 

?SET STACK PNTR. 

1391 

ED56 

IM1 


5 INTERRUPT MODE 1. 



;*******< SET 

1791-01/1793 

-01 ) 

1393 

OEOO 

MV I 

Ci 0 

;LOAD C REG ZERO. 

1395 

DBOO 

IN 

bl n o r o 

?BOARD STATUS. 

•1397 

E601 

AN I 

BS.USO 

;TEST USER SW #1. 

1 399 

2002 

JRNZ 

LD.BLT 

5SW OPEN - 1793. 

139B 

OEFF 

MV I 

C>OFFH 

»SW CLOSED -- 1791. 



;*******( OVERLAY WITH BIO 

S LOADER TRANSIENT )********* 

139D 

DD21 133E 

LD.BLT: LX I 

X 7 DT.DED 

■INIT DRIVE TBL. 

13 A 1 

3E02 

MV1 

A 7 jd 

JBIOS LOADER SECTOR. 

13 A3 

32 1373 

ST A 

CB.SEC 

JSET SECTOR VALUE. 

13 AS 

DB40 

IN 

XP.MTX 

?MOTOR TIME EXTEND. 

13A8 

21 1380 

LX I 

H,BUF.BG 

JSET RETURN ADDR. 

1 SAB 

E5 

PUSH 

H 

J PUSH INTO STACK. 

1 SAC 

C3 1265 

JMP 

RD.SEC 

J GET BIOS LOADER. 



5 



. END 








TDL ZSO CP/M DISK ASSEMBLER VERSION 2.21 'PfeE’2% 

DISK CONTROLLER MODULE (DCM) 

SYMBOL TABLE +++++ 


BANK.0 

1 OOO 

BANK.1 

1400 

BANK.L 

0400 

BASE 

1000 

BC. DAS' 

0020 

BC.DDE 

0010 

BC.DBS 

0010 

BC.DSA 

ooo i 

BC.DSB 

0002 

BC.DSE 

0004 

BC.DSN 

0003 

BC.ElA 

0008 

BC u 

0040 

BC.PCB 

0080 

BC.PCH 

0040 

BC a PCL 

00 CO 

BC.PCM 

0080 

BC.PCZ 

0000 

BC.SDS 

0000 

BL.CTL 

0000 

BL. STS' 

0000 

BS.DCN 

0080 

BS.ElA 

0010 

BS.INT 

0008 

BS.MOP 

0020 

BS.1SD 

0040 

BS.TST 

0004 

BS.USO 

OOO 1 

BS.US1 

0002 

BUF.BG 

.1 880 

BUF.ST 

1309 

CB.CMD 

1370 

CB.DRV 

1371 

CB.FFG 

1374 

CB.MOD 

1376 

CB.SEC 

1373 

CB. SPR' 

1375 

CB.STS 

1377 

CB.TRK 

1372 

CHK.RT 

12DC 

CMD.BK 

1370 

CM.NRT 

0080 

CS.BTO 

0001 

CS.BT1 

0002 

CS.BT5 

0020 

CS.CRC 

0008 

CS.DNR 

0080 

CS.LDE 

0004 

CS.RNF 

0010 

CS.WRP 

0040 

CW.LAD 

1378 

CW. L.NG 

137 A 

DC.HDL 

0010 

DC.HDU 

0018 

DC.IFI 

00D8 

DC.RDA 

00 CO 

DC.RDS 

0080 

DC.STS 

OODO 

DC.WRS 

OOAO 

DC.WRT 

OOFO 

DF.DFL 

0002 

DF.DTD 

0002 

DF.T1D 

0001 

DF.TSD 

0003 

DM.DNR 

0080 

DM.FER 

00E4 

DM.HDL 

0020 

DM.LDE 

0004 

DM.RER 

00 so 

DM.TKO 

0004 

DM.WER 

OOFD 

DT.DEO 

1322 

DT.DEI 

132? 

DT.DED 

133E 

DV.CTL 

0006 

DV.DES 

0007 

DV.FLO 

0005 

DV.NBR 

0000 

DV.SEC 

0002 

DV.SPT 

0003 

DV.STG 

0004 

DV.TBL 

1322 

DV.TRK 

0001 

ERR.CT 

1 SOB 

EX.HDL 

123E 

EX.HDU 

124B 

EX„STS 

1258 

FETCH 

103F 

FMT.BG 

1700 

FMT.PS 

1708 

HOME.D 

1126 

HR.INT 

1038 

HR.VEC 

1006 

ID.BLK 

13A0 

ID.FLD 

0000 

ID.FLG 

13B1 

ID.LBL 

13S0 

ID.SPT 

13A0 

ID.STG 

13B0 

ID.SZE 

0008 

INIT.B 

1380 

10.. BLK 

1370 

JADEID 

131A 

LD.BLT 

139D 

LOG.ON 

114B 

NM.INT 

1066 

RD.SEC 

1265 

RST. 0 

1 OOO 

RSI". 1 

1008 

RST. 2 

1010 

RST. 3 

1018 

RST. 4 

1020 

RSI . 5 

1028 

RST. 6 

1030 

RST. 7 

1038 

RTY.LS 

0009 

RTY.SK 

0005 

SEEK 

1 ISO 

SELECT 

1 ODD 

SV.DRV 

130C 

SV.STS 

1 SOD 

TICK.E 

1074 

TICK.R 

1070 

TMR.FC 

0019 

TMR .NC 

001 C 

TM.ALS 

1312 

TM.HLD 

130E 

TM.MTO 

1314 

TM. F'LD 

1316 

TM.SAW 

1318 

TM.STP 

1310 

TP.STK 

1370 

WD.CMD 

0004 

WD.DTA 

0007 

WD.INT 

1066 

WD.SEC 

0006 

WD.STS 

0004 

WD.TRK 

0005 

WR.SEC 

1294 

WR.TRK 

1 2C3 

XP„DSH 

0080 

XP.IRR 

0020 

XP.MTO 

0010 

XP.MTX 

0040 

XF.STP 

0008 

X'. CUTE 

1041 

«.ADDR 

1 OCC 

%.FORM 

3.09 A 

*.IDLE 

10D2 

%.LGON 

1 OAF 

%.READ 

107C 

&.SPAR 

1 OCR" 


♦.WRIT 1OSB 


























SBD 




PROPERTY OF! 


# **###****##■»****■«•«•#••«•#•* ##•»• **##*■«•##*■«■###•»##•#•## -H- IHHHHHt# # 

# 

PROGRAM IDs SYSTEM BOOTSTRAP DRIVER * 

# 

: # 

JADE COMPUTER PRODUCTS 
4901 W. ROSECRANS BLVD. 
HAWTHORNE, CALIFORNIA 
90250, U.S.A. 


#■ 
* 
* 

* 

VERSION: 2.2 * 

* 

THE SYSTEM BOOTSTRAP DRIVER IS ONE OF TWO MODULES * 
THAT MAKE UP THE SYSTEM RESIDENT BOOTSTRAP. THIS * 

MODULE IS TO BE EXECUTED BY THE SYSTEM PROCESSOR. * 

DURING EXECUTION, THIS MODULE PERFORMS A BLOCK MOVE * 
OF THE SECOND MODULE (BOOT INJECTION MODULE) INTO * 
THE DOUBLE D CONTROLLER MEMORY. A SUCCESSFUL BOOT * 
THE DOUBLE D WILL LEAVE DCM IN BANK 0 * 

BANK 1. THE REMAINDER OF THIS MODULE * 
THE BIOS IMAGE TO THE PROPER SYSTEM * 
JUMPS TO THE BIOS COLD START ENTRY. * 


OPERATION BY 
AND BIOS IN 
THEN MOVES 
ADDRESS AND 


DOUBLE D HARDWARE PARAMETERS. PLEASE NOTE THIS * 

SECTION CONTAINS CONDITIONAL STATEMENTS. * 

tt-K-S-S- ####*##########*##**■«•*•»■#■•»•■«•#•«••!<•-ft## 


0043 


DfPORT 

EQU 

043H 

;DOUBLE D PORT ADDRESS. 

0001 

= 

TRUE 

EQU 

1 

» TRUE IS A ONE. 

0000 

ss 

FALSE 

EQU 

0 

5 FALSE IS A ZERO. 

0001 


REV*B 

EQU 

. TRUE 

5 SET TRUE FOR REV B BOARDS. 

0000 

•= 

REV*C 

EQU 

FALSE 

■SET TRUE FOR REV C BOARDS. 

0000 

— 

MA10 

EQU 

FALSE 

5 T RUE IF MA10 JUMPED (REV-B) 



7 

IF 

REV$B 


0002 

-r 

DSTHLT 

EQU 

002H 

5STATUS PORT HALT INDICATOR. 

oooc 


DSTASW 

EQU 

OOCH 

;STATUS PORT ADDR SW MASK. 



DEBASE 

SE T 

0E4O0H 

5 SYSTEM WINDOW BASE ADDRESS 




END IF 





7 

IF 

HA 10 




DEBASE 

EQU 

OEOOOH 

?SYSTEM WINDOW BASE ADDRESS 




ENDIFF 




' 

? 

IF 

REV*C 




DS'$HLT 

EQU 

001H 

?STATUS PORT HALT INDICATOR. 



DS$ASW 

EQU 

OOEH 

5 STATUS PORT ADDR SW MASK. 



DEBASE 

EQU 

END IF 

OEOOOH 

;SYSTEM WINDOW BASE ADDRESS 


? BOOTSTRAP INJECTION MODULE PARAMETERS * 

; tf###***##*#*####*#***##***###*##*#-*#***#######'*#-*####-* 


1000 
00 CO 


IMSADR EQU 1000H ?BOOT INJECTION MODULE ADORES 

IM$SZE EQU OOCOH 5 BOOT INJECTION MODULE SIZE. 








-■* 

l 


? BOO I 8 i RAF L1NKAUE ADDRESS. * 

r**#********#****#***##**##**#*-&*##*****#*#*******#**#* 


0080 - 

BSTACK 

EQU 

0080H 

0040 ~ 

D*ADDR 

EQU 

004OH 

0377 = 

BLfDCS 

EQU 

0377H 

0378 ~ 

BLSADR 

EQU 

0378H 

037A -- 

BL$BSZ 

EQU 

037AH 


5 BOOTSTRAP TOP OF STACK. 

;DOUBLE D ADDRESS POINTER. 
SDCM DISK CONTROLLER STATUS. 
;DCM LOAD AND JUMP ADDRESS. 
SDCM BLOCK LOAD SIZE. 


; #*#****#****#**#**#**#*****#*###**##*#***#*#***#****#* 
? DOUBLE D HARDWARE COMMANDS * 

; ***#*#*#*#*#**####********######*****#***#*#**#***#*#* 


0080 = 

DC$BGN 

EQU 

080H 

0001 - 

DCTMRQ 

EQU 

001H 

0000 5= 

DC*MRT 

EQU 

OOOH 

0001 - 

DC*MBO 

EQU 

001H 

0003 = 

DOTMB1 

EQU 

003H 

0002 =••• 

DC*EX C 

.EQU 

002H 


SRESET Z80A AND EXECUTE. 

SREQUEST MEMORY WINDOW. 

;RELEASE MEMORY WINDOW* 

5 SELECT MEMORY BANK 0. 

5 SELECT MEMORY BANK 1. 

5 ISSUE DOUBLE 0 INTERRUPT 


; *##***##*#**##*#####**##***#*»******#****#******#*###* 
; ASSEMBLER DIRECTIVES * 

; tt***#*####*###**#**#***#*##**###*****##*##****#*##*#** 


0 1 00 


ORO 


01OOH 


5 MODULE ADDRESS (ALTERABLE). 


; ********#***#******##*#**#*#**##*##*##*#*####*****#*** 
? SET STACK AND CONTROLLER ADDRESS * 

; S***************************************************** 


0100 

318000 

BEGIN: LX I 

SP,BSTACK 

?SET STACK POINTER. 


0 103 

DB43 

IN 

D*PORT 

;INPUT STATUS PORT. 


0105 

E60C 

ANI 

DS*ASW 

5 MASK FOR ADDR SWS. 


0107 

07 

RLC 


5 POSITION BITS. 


0108 

F6E4 

OR I 

D*BASB SHR 

8 ;0R IN BASE ADDR. 


010A 

67 

MOV 

H> A 

? HIGH BYTE VALUE. 


01 OB 

2E00 

MVI 

L 7 0 

5 LOW BYTE VALUE. 


01OD 

224000 

SHLD 

D$ADDR 

5 STORE THE ADDRESS 




7 

5 



“ INJECT BOOT 

MODULE INTO 

CONTROLLER 





0110 

3E01 

7 

INJECT: MVI 

A,DC*MBO 

?REQUEST DD MEM BANK 

0. 

0112 

0343 

OUT 

D*PORT 

;ISSUE COMMAND. 


0114 

01cooo 

LX I 

B,IM*SZE 

?INJECT ION SIZE. 


0117 

E£B 

XCHG 


? D*ADDR HL TO DE. 


0118 

210010 

LX I 

H.IM*ADR 

?INJECTION MODULE. 


01 IB 

CD5901 

CALL 

BLOCK 

;BLOCK MOVE. 







? REESE 1 AND S 

TART THE DISK 

PROCESSOR 




5 

01 IE 

3E80 

7 

MVI 

A,DC*BGN 

SBEGIN DD PROCESSOR. 


0120 

0343 

OUT 

DEPORT 

;ISSUE COMMAND. 


0122 

E3 

XTHL 


5 ALLOW DOUBLE D TIME 


0123 

E3 

XTHL 


HO START UP. 



; *#***********#*##*****#*****#***#*##******##*##*#***** 
; WAIT FOR TASK COMPLETION , #■ 

; **#*****#*#*#***#***#**»*****##*##*#*#*#*#**#*###****# 


0124 DB43 
0126 E602 


WAIT 


IN 
AN I 


D*PORT 

DS*HLT 


;INPUT DD STATUS. 

5 TEST HALT* ST ATUS. 












J >T TV 7v Tv Tv Tv Tv Tv Tv t\ Tv VV /V Tv Tv Tv 7T Tv TV TT TV TV '71 .-. j-. 


; SWITCH CONTROLLER MEMORY INTO SYSTEM BUS * 


012B 3E01 
012D D343 


MV I 
0U T 


A,DC»MRQ 
DEPORT 


? REQUEST MEM (BANK 0) 
?ISSUE COMMAND. 


5 CHECK FOR BOOTSTRAP MALFUNCTION * 

; tf**####*##******###*####*#**######-;?-*#*-?!-*#*'***#*##-**### 


012F 

2A4000 

LHLD 

D$ADDR 

5 CONTROLLER ADDRE 

0132 

117703 

LX I 

Di8L$DCS 

? ERROR CODE OFFSE 

0135 

19 

DAD 

D 

?SET HL POINTER. 

0136 

/E 

MOV 

A, M 

9 GET ERROR CODE. 

0137 

A7 

ANA 

A 

;TEST REGISTER. 

0138 

C26601 

JNZ 

BAD$LD 

? BAD LOAD. 


S PERFORM BLOCK TRANSFER FROM DISK MEMORY * 


013B 

2A4000 

LHLD 

D$ADDR 

? CONTROLLER ADDRESS. 

013E 

117303 

LX I 

D,8LSADR 

? L 0 A D A D D R E S S P N i R. 

0141 

19 

DAD 

D 

?SET HL POINTER. 

0142 

5E 

MOV 

£,M 

slow order addr. 

0143 

23 

I NX 

H 

5 INCREMENT HL. 

0144 

56 

MOV 

D, M 

5HIGH ORDER ADDR. 

0145 

23 

I NX 

H 

?REQUIRES BL.BSZ NEXT. 

0146 

4E 

MOV 

COM 

SLOW ORDER LENGTH. 

0147 

xi*z* 

I NX 

H 

SINCREMENT HL. 

0148 

46 

MOV 

8, M 

SHIGH ORDER LENGTH. 

0149 

D5 

PUSH 

D 

;USE AS JUMP ADDR. 

014 A 

3E03 

MV I 

A,DC$MB1 

? SWITCH TO MEM BANK 1. 

014C 

D343 

OUT 

Df'PORT 

?ISSUE COMMAND. 

014E 

2A4000 

LHLD 

DSADDR 

,* DOUBLE D MEM ADDRESS. 

0151 

CD5901 

CALL 

BLOCK 

5 MOVE BIOS MODULE. 


? TRANSFER CONTROL TO OPERATING SYSTEM * 


1 


0154 3E01 

MVI 

A 7 DCfMBO 

;SWITCH TO BANK. 

0 

0156 D343 

OUT 

DEPORT 

5 ISSUE COMMAND. 


0158 C9 

RET 


* GOTO BIOS COLD 

ENTRY. 


? BLOCK MOVE SUBROUTINE (280 BLOCK MOVE REGISTERS) * 


0159 

7E 

BLOCK: MOV 

A, M 

5 GET 

BYTE. 

015A 

23 

INX 

H 

’ INC 

POINTER 

015B 

EB 

XCHG 


7* GET 

DESTINATION 

015C 

77 

MOV 

M, A 

; PU T 

BYTE. 

015D 

iC* 

INX 

H 

7 * INC 

POINTER 

015E 

EB 

XCHG 


; GET 

SOURCE. 

015F 

OB 

DCX 

B 

; ONE 

LESS TO DO. 

0160 

/ o 

MOV 

A 7 B 

7* GE T 

HI COUNT. 

0161 

B1 

ORA 

c 

5 GET 

LO COUNT. 

0162 

C25901 

JNZ 

BLOCK 

; FINI 

S H L 0 A DIN G. 

0165 

C9 

RET 

* 





; *##*"S"g-S"»-S--S-S-■«■■*•» #•«■■*#•«■ 

5 ERROR HAS BEEN DETECTED * 





SBD 
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SYSTEM BOOTSTRAP DRIVER - JADE DOUBLE D 
TITLE PAGE 




; * 

; PROGRAM IDs SYSTEM BOOTSTRAP DRIVER * 

; * 

; #####*#*#####*##*#*tt#*####*#*##*#*-##** *#**#*#-#-**#-***#* 

7 * 

; PROPERTY OF: JADE COMPUTER PRODUCTS * 

; 4901 W. ROSECRANS BLVD. * 

S HAWTHORNE, CALIFORNIA * 

; 90250, U.S.A. * 

; . * 

; * 

,“ VERSION: 2.2 * 

; * 


; -g-#*#####*####*##'#**##****#*#*****#*##**##**#***-ifr****** 

; THE SYSTEM BOOTSTRAP DRIVER IS ONE OF TWO MODULES * 
S THAT MAKE UP THE SYSTEM RESIDENT BOOTSTRAP. THIS * 
; MODULE IS TO BE EXECUTED BY THE SYSTEM PROCESSOR. * 
5 DURING EXECUTION, THIS MODULE PERFORMS A BLOCK MOVE * 
5 OF THE SECOND MODULE <BOOT INJECTION MODULE) INTO * 
5 THE DOUBLE D CONTROLLER MEMORY. A SUCCESSFUL BOOT * 
; OPERATION BY THE DOUBLE D WILL LEAVE DCM IN BANK 0 * 
5 AND BIOS IN BANK 1. THE REMAINDER OF THIS MODULE * 
; THEN MOVES THE BIOS IMAGE TO THE PROPER SYSTEM * 
,“ ADDRESS AND JUMPS TO THE BIOS COLD START ENTRY. * 
; tt#######*#*##***##*#*#'*##*#**#**#*#*#*#####*### SK #** 


TDL ZSO CP/M DISK ASSEMBLER VERSION 2.21 
SYSTEM BOOTSTRAP DRIVER - JADE DOUBLE D 
DRIVER EQUATES 
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; ft*##*###*##*###-*##**###**##-*##*#*#*#####*****#***#*#*# 

5 DOUBLE D HARDWARE PARAMETERS. PLEASE NOTE THIS * 

5 SECTION CONTAINS CONDITIONAL STATEMENTS. * 

;ft###*###*#########*##*###########*######*############* 


0043 

D.PORT 


043H 

;DOUBLE D PORT ADDRESS. 

000 i 

TRUE 


1 

? TRUE IS A ONE. 

0000 

FALSE 

ssss 

0 

5 FALSE IS A ZERO. 

0001 

REV. B 


TRUE 

5SET TRUE FOR REV B BOARDS. 

0000 

REV. C 


FALSE 

?SET TRUE FOR REV C BOARDS. 

0000 

MAI 0 


FALSE 

5 TRUE IF MA10 JUMPED (REV-B). 



. l'FG 

REV .Bv 

C 

0002 

DS.HLT 


002H 

;STATUS PORT HALT INDICATOR. 

oooc 

DS.ASW 


OOCH 

;STATUS PORT ADDR SW MASK. 

E400 

D.BASE 

= 

0E4O0H 

!SYSTEM WINDOW BASE ADDRESS! 



-IF G 

M A10» C 



D.BASE 


OEOOOH 

;SYSTEM WINDOW BASE ADDRESS! 



. IFG 

REV.C, 

L' 


DS.HLT 


001 H 

?STATUS PORT HALT INDICATOR. 


DS.ASW 

—— 

OOEH 

5 STATUS PORT ADDR SW MASK. 


D.BASE 


OEOOOH 

;SYSTEM WINDOW BASE ADDRESS! 


;ft#*#**##*###*####**#*##*#**#*######*##########*###*#*# 

5 BOOTSTRAP INJECTION MODULE PARAMETERS (ALTERABLE) * 

;ft#*###*##*#####**###***########*#**###**###########**# 


0200 

OOCO 


IM.ADR 
IM.SZE 


0200H »BOOT INJECTION MODULE ADDRESS. 

OOCOH {BOOT INJECTION MODULE SIZE. 


;ft*#####*##*****##*#**###*########**####*##*########### 

- BOOTSTRAP LINKAGE ADDRESS. * 

;ft*#*#*###**##*#####*###*#*####**####**#*##*########**# 


0080 
0040 
0377 
O 3 7 8 
037A 


BSTACK ===== 
D.ADDR ===== 
BL.DCS === 
BL.ADR == 
BL.BSZ ===== 


0080H 
0040H 
0377H 
037SH 
037AH 


;BOOTSTRAP TOP OF STACK. 

5 DOUBLE D ADDRESS POINTER. 
?DCM DISK CONTROLLER STATUS 
SDCM LOAD AND JUMP ADDRESS. 
;DCM BLOCK LOAD SIZE. 


;ft*#################*#*#########*#***##########**#*##** 

5 DOUBLE D HARDWARE COMMANDS * 

;ft*#*##*####*#**#*#*##*##*##########*#*###*####*###**## 


0080 

DC.BON == 

080H 

m 

7 

RESET ZSOA AND EXECUTE. 

000 i 

DC - MRG-! == 

001H 

7 

REQUEST MEMORY WINDOW. 

0000 

DC.MRT ===== 

OOOH 

5 

RELEASE MEMORY WINDOW. 

0001 

DC.MBO == 

001H 

? 

SELECT MEMORY BANK 0. 

0003 

DC.MB1 == 

003H 

V 

SELECT MEMORY BANK 1. 

0002 

DC. EXC ===== 

002H 

? 

ISSUE DOUBLE D INTERRUP 


ft########*#*####*##**######*######**###*###**####***## 
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; ****************************************************** 
5 ASSEMBLER DIRECTIVES # 

; *#****#****#*#***#*****#*##******#***-###****#*****#*-b-# 


0100 


I S'030 
PABS 
PHEX 
XL INK 
LOG 


0100H 


5USE 8080 INSTRUCTION SUBSET. 
;ASSEMBLE ABSOLUTE ADDRESS. 

;GENERATE INTEL HEX FORMAT. 

5 SUPRESS LINKAGE OUTPUT. 

;MODULE ADDRESS <ALTERABLE). 


; tt*****#***##***##****#-************##*-*#*--###*--*-*#-*-*###-** 

; SET STACK AND CONTROLLER ADDRESS * 

; **#****#*#**#*###**#*********#-*-tt*******#***#**'*#*#*#*# 


0100 

31 0080 

BEGIN: LX I 

SP,BSTACK 

;SET STACK POINTER. 

0 i 03 

DB43 

IN 

D.PORT 

% ;INPUT STATUS PORT. 

0105 

E60C 

AN I 

DS.ASW r# 

5 MASK FOR ADDR SWS. 

0 i 07 

07 

RLC 


?POSITION BITS. 

0 j. 08 

F6E4 

OR I 

D.BASE>8 

5OR IN BASE ADDR. 

010A 

67 

MOV 

H, A 

5 HIGH BYTE VALUE. 

01 OB 

2E00 

MV I 

Li 0 r 

?LOW BYTE VALUE. 

01OD 

22 0040 

SHLD D.ADDR ;STORE THE ADDRESS 

;##*#******tf******************************************* 

; INJECT BOOT MODULE INTO CONTROLLER * 

; ****************************************************** 

0110 

3E01 

INJECT: MVI 

A i DC.MBO 

?REQUEST DD MEM BANK 0. 

0112 

D343 

OUT 

D. PORT 

?ISSUE COMMAND. 

0114 

01 OOCO 

LX I 

B,lM.SZE 

»INJECTION SIZE. 

0117 

EB 

X CHG 


;D.ADDR HL TO DE. 

0118 

21 0200 

L.X I 

H,IM.ADR 

;INJECTION MODULE. 

01 IB 

CD 0159 

CALL BLOCK 5 BLOCK MOVE. 

;ft***************************************************** 

; RESET AND START THE DISK PROCESSOR * 

; ***#******##*#******#******#*##***##*****•»••#•*#•»•*•»•****•«••#• 

01 IE 

3E80 

MV I 

A,DC.BON 

5 BEG IN DD PROCESSOR. 

0120 

D343 

OUT 

D.PORT 

;ISSUE COMMAND. 

0122 

E3 

XTHL 


;ALLOW DOUBLE D TIME 

0123 

E3 

X THL 


» TO START UP. 


; **■#**■»* 

; WAIT FOR TASK COMPLETION * 

5 tf*****************###******##****#***#***##-**##-**#--*-*-#* 


0 i 24 
0126 
0128 


DB43 
E602 
C2 0124 


WAIT: 


IN 
AN I 
JNZ 


D.PORT 
DS.HLT 
WAIT 


;INPUT DD STATUS. 

5 TEST HALT* STATUS 
5WAIT TILL HALTED. 
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SYSTEM BOOTSTRAP DRIVER - JADE DOUBLE D 


BOOTSTRAP 

DRIVER 









; SWITCH CONTROLLER MEMORY INTO 

SYSTEM BUS * 




012B 

3E01 

MVI 

A,DC.MRQ 

5REQUEST MEM (BANK 0). 

012D 

D343 

OUT 

D.PORT 

;ISSUE COMMAND. 



; CHECK FOR BOOTSTRAP MALFUNCTION * 

5 

012F 

2A 0040 

LHLD 

D.ADDR 

;CONTROLLER ADDRESS. 

0132 

11 0377 

LX I 

D 7 BL. DCS; 

5ERROR CODE OFFSET. 

0135 

•J » 

j. y 

DAD 

D 

? SET HL POINTER. 

0136 

7E . 

MOV 

A> M 

;GET ERROR CODE. 

0137 

A 7 

'ANA 

A 

? TEST REGISTER. 

0133 

02 0166 

JNZ 

BAD.LD 

5BAD LOAD. 






- PERFORM BLOCK 

TRANSFER FROM DISK MEMORY * 




01 SB 

2A 0040 

LHLD 

D.ADDR 

5 CONTROLLER ADDRESS . 

013E 

11 0378 

L.X I 

D 7 BL.ADR 

5L0AD ADDRESS PNTR. 

0141 

:i 9 

DAD 

D 

;SET HL POINTER. 

0142 

5E 

MOV 

E, M 

?LOW ORDER ADDR. 

0143 

2 o' 

I NX 

H 

;INCREMENT HL. 

0144 

56 

MOV 

D, M 

5 HIGH ORDER. ADDR. 

0145 


I NX 

H 

;REQUIRES BL.BSZ NEXT. 

0146 

4E 

MOV 

C 7 M 

I LOW ORDER LENGTH. 

0147 

23 

INX 

H 

5 INCREMENT HL. 

0148 

46 

MOV 

B, M 

;HIGH ORDER LENGTH. 

0149 

D5 

PUSH 

D 

,• USE AS JUMP ADDR. 

014 A 

3E03 

MVI 

A,DC.MB1 

;SWITCH TO MEM BANK 1. 

014C 

D343 

OUT 

D.PORT 

5 ISSUE COMMAND. 

014E 

2A 0040 

LHLD 

D.ADDR 

,* DOUBLE D MEM ADDRESS. 

0151 

CD 0159 

CALL 

BLOCK 

5 MOVE BIOS MODULE. 






? TRANSFER CONTROL TO OPERATING 

SYSTEM • * 



; ##*#***#**#* ##**###*#**#***####**####**#*###*##•##•*•**•## 

0154 

3E01 

MVI 

A,DC.MBO 

5 SWITCH TO BANK .0 

0156 

D343 

OUT 

D.PORT 

5 ISSUE COMMAND. 

0158 

09 

RET 


.; GOTO BIOS COLD ENTRY. 
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BOOTSTRAP DRIVER 


; *##**w***###*»#**#*#***#*#*******-***#*#-#*##*****#****# 
5 BLOCK MOVE SUBROUTINE <Z80 BLOCK MOVE REGISTERS) * 
; *#•&*##**#**#**•##*##*#■*##*■#••*#■ 


0159 

7 E 

BLOCK: MOV 

A» M 

5 GET BYTE. 

01 SA 

23 

INX 

H 

; INC POINTER 

01 SB 

EB 

XCHG 


? GET DESTINATION. 

0 i 3C 

7 7 

MOV 

M, A 

5 PUT BYTE. 

0 1 DO 

2 

INX 1 

H 

5 INC POINTER 

01 OL 

LB 

XCHG 


5 GET SOURCE . 

015F 

OB 

OCX 

B 

50NE LESS TO DO. 

(.) I 60 

78 

MOV 

A j B 

?GET HI COUNT. 

0161 

Li 1 

UR A 

c 

5 GET LO COUNT. 

01 62 

01 65 

C2 0159 

09 

JNZ BLOCK ;FINISH LOADING. 

RET 

; # ####■•* fc###***##**#*#***##*#*##-####'**#-#- «•■»■»*«• 

; ERROR HAS BEEN DETECTED * 

; •tt###**#*#*#**-#-**-* 

0166 

21 0160 

BAD.LDs LX I 

H,ER.MSG 

5 ERROR MESSAGE 

0169 

CD 0196 

CALL 

MSG.OT 

; DISPLAY IT. 

0160 

7/.. 

HLT 


;halt or goto monitor. 

0160 

000A 0 A53595 3 

ER.MSG: .ASCIS 

CCRJLLF3CLFT 

"SYSTEM BOOT LOAD ERROR" 
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SYSTEM BOOTSTRAP DRIVER - .JADE DOUBLE D 

COMMUNICATION 


; **###*#*#*##**•#*#»#*#*#**##*#•«••*##*********##•#■*••«••#•#■»•#*•*# 
5 CONSOLE LINKAGE DEFINITIONS * 

; ■**#**•###**#*•&#**#####**#*#**####*#*###****##*##**•»•■«•*•*■#• 


uuou 

CNO.SP == 

OOOH 

5 OUTPUT STATUS PORT. 

UOU4 

CNO.SB -= 

004H 

;OUTPUT STATUS BIT. 

UUUU 

CNO.SI == 

OOOH 

;OUTPUT STATUS INVERT. 

ooo i 

CNO.DP »* 

00 i H 

;OUTPUT DATA PORT. 

(JUUm 

LF 

OOAH 

JASCII LINE FEED 

00 oil 

CR 

OOOH 

;CARRAIGE RETURN 


5 CONSOLE OUTPUT * 


0186 

FS 

CNS. Of: 

PUSH 

PSW 

;SAVE CHARACTER 


0187 

DBOO 

..WAIT: 

IN 

CNO.SP 

?INPUT STATUS 


0189 

EE 00 


XRI 

cm. si 

?ADJUST POLARITY 


018B 

E604 


AN I 

CNO.SB 

j MASK STATUS BIT 


018D 

CA 0187 


•JZ 

. .WAIT 

5 TRY AGAIN 


0190 

FI 


POP 

PSW 

;RESTORE CHARACTER 


0.191 

E67F 


AN I 

07FH 

57 BIT ASCII 


0193 

D301 


OUT 

CNO.DP 

;SEND CHARACTER 


0195 

C9 


RET 






; *■*?•##** 




5 DISPLAY MES: 

SAGE SUBROUTINE 


* 




0196 

F5 

MSG.OT: 

PUSH 

PSW 

j SAVE CALLER FLAGS. 


0197 

7E 

. CREPT: 

MOV 

A. M 

•LOAD CHARACTER. 


0198 

CD 0186 


CALL 

CNS.OT 

* CONSOLE OUTPUT. 


019B 

7E 


MOV 

A,M 

;SAME CAHRACTER. 


019C 

O *'2» 


I NX 

H 

;INCREMENT POINTER. 


0190 

E680 


ANI 

080H 

;TEST SIGN BIT. 


019F 

CA 0197 


JZ 

. . REPT 

5 ANOTHER CHARACTER. 


01A2 

FI 


POP 

PSW 

;RESTORE FLAGS. 


01 A3 

C9 


RET 


;RETURN TO CALLER. 





0100 


END 


BEGIN 








T 


TDL. Z80 CP/M DISK ASSEMBLER VERSION 2.21 
SYSTEM BOOTSTRAP DRIVER - JADE DOUBLE D 
+++++ SYMBOL TABLE +++++ 


BAD.LD 0166 
BL.BSZ 037A 
CNO.SB 0004 
CR 000ti 
DC.MB! 0003 
DS.HLT 0002 
ER.MSG 016D 
INJECT 0110 
REV.B 0001 


BEGIN 0100 
BL.DCS 0377 
CNO.SI 0000 
DC.BGN 0080 
DC.MRS 0001 
D.ADDR 0040 
FALSE 0000 
LF OOOA 
REV.C 0000 


BLOCK 0159 
BSTACK 0080 
CNG.SP 0000 
DC.EXC 0002 
DC.MRT 0000 
D.BASE E400 
IM.ADR 0200 
MA10 0000 
TRUE 0001 


BL.ADR 0378 
CNO.DP 0001 
CNS.OT 0186 
DC.MBO 0001 
DS.ASW OOOC 
D.PORT 0043 
IM.SZE OOCO 
MSG.OT 0196 
WAIT 0124 
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TDL. Z 
INJEC 
TITLE 


SO CP/M DISK ASSEMBLER VERSION 2.21 PAGE 1 

•TION MODULE - JADE DOUBLE D DISK CONTROLLER 
PAGE 


; •tt-##*#***###*#**####*****#**#*##*##***#*####*#*#*#*-#*** 
; # 
; PROGRAM ID: BOOTSTRAP INJECTION MODULE * 

5 # 

; * 
? PROPERTY OF: JADE COMPUTER PRODUCTS * 

;■ 4901 W. ROSECRANS BLVD. * 

5 HAWTHORNE, CALIFORNIA * 

J 90250, U.S.A. * 

5 # 

;aaa#a##a**aaa#a*###*#a###a#a#*aaaa*#**a##*■«■■»■•»■*•»•«•■*#■»• ##* 
; * 
i VERSION: 2.2 * 

? a 

5 aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
5 THE BOOTSTRAP INJECTION MODULE IS ONE OF TWO * 
? MODULES THAT TOGETHER MAKE UP THE SYSTEM RESIDENT a 
5 BOOT. THIS MODULE IS DOWNLOADED INTO THE DOUBLE D * 
? MEMORY BY THE SYSTEM BOOTSTRAP DRIVER. THE MODULE a 
5 THEN READS IN THE DISK CONTROLLER MODULE <DCM) FROM * 
S TRACK 0. THE ORIGIN OF THIS PROGRAM IS FIXED AS IT a 


5 IS ASSEMBLED TO EXECUTE INSIDE THE DOUBLE D. THE * 
5 BOOT INJECTION MODULE CAN THEREFORE RESIDE IN a 
5 THE BOOTSTRAP PROM WITHOUT THE NEED TO REASSEMBLE. * 
! NOTE: STEP TIMING AND MOTOR TURN-ON DELAYS ARE * 
? DEFINED IN THIS MODULE. PATCHING MAY BE REQUIRED. * 


; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa SK aaa 






k. 


a 
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5 #tf-*#-*####tt*#tf-»###*'*#*'»H*#-*»»***#*#***###*##*#****'*#*'iHH*- 

! CONTROLLER PORT ASSIGNMENTS * 

; tt##*#*-****##**##**####**#####**’*#*####*#*#***#***-#**## 


0000 

BL mSTS 

2T22: 

OOOH 

5 BOARD STATUS 

0000 

BL.CTL 

i 

00 OH 

5BOARD CONTROLS 

0004 

WO.CMD 

22 : 22 : 

004H 

51791 COMMAND REGISTER 

0004 

WD.STS 

3= =5 

004H 

?1791 STATUS REGISTER 

0005 

WD.TRK 

r==s 

005H 

51791 TRACK REGISTER 

0006. 

WD.SEC 

22 : 22 : 

006H 

51791 SECTOR REGISTOR 

0007 

WD.DTA 

~~ 

007H 

51791 DATA REGISTER 

0008 

XP.STP 

22 : 22 : 

oosh 

5 STEPPER PULSE 

0010 

XP.MTO 

~ =s 

01 OH 

5MOTOR TIME OUT 

0040 

XP.MTX 

=:~ 

040H 

5 MOTOR TIME EXTEND 

0080 

XP.DSH 


080H 

5 DATA SYNC HOLD 




; 1791- 

01 COMMAND CODES 




001 s 

DC.HDL 

22:22: 

018H 

5 LOAD R/W HEAD. 

0090 

DC.RMS 

~~~T 

090H 

5 READ MULTI-SECTOR. 

OODO 

DC.STS 

22:22: 

ODOH 

5 SET TYPE 1 STATUS. 




5 BOARD 

STATUS AND CONTROL PORTS * 



0001 

BS.USO 

2 = 22 : 

001H 

51791-01 INDIGATOR (CLOSED). 

0000 

BC.DRO 

22:22: 

OOOH 

5 DRIVE 0 SELECT. 

0004 

,BC. DSE 

22 : 22 : 

004H 

5 DRIVE SELECT ENABLE 




; DISK 

STATU 

3 MASKS 




009C 

DM.RER 

22:22: 

100111OOB 5 READ ERROR TEST MASK 

0004 

DM.TKO 

22:22: 

00000100B ?TRACK 0 TEST 




; DISK 

DRIVE 

PARAMETERS 

* 



0008 

TM.STP 

22:22: 

8 

5 STEPPER INTERVAL - MS. 

000 .t 

TM .DBR 

~~~ 

1 

5 DELAY BEFORE READ- MS. 

0050 

NB.TRK 

2 : 222 : 

80 

5 MAXIMUN NMBR OF STEPS. 





o 


) 












PAGE 




J 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
INJECTION MODULE - JADE DOUBLE D DISK CONTROLLER 
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0000 

0400 

0400 

0066 

0376 

0377 


0001 
0002 
0004 


GOOD 

0403 

0400 


0000 


? INTERNAL MEMORY ASSIGNMENTS # 


BANK.0 ===== 

BANK.L == 
BANK.1 ===== 

I NT.NM ===== 
BL.ERC == 
BL.DCS == 


OOOOH 

0400H 

BANK.O+BANK.L 
BANK.0+0066H 
BANK.0+0376H 
BANK.0+0377H 


?LOWER BANK ADDRESS. 

;IK BANK LENGTH. 

5 UPPER BANK ADDRESS. 

;NON-MASKABLE INT ADDR. 
;ERROR CODE LOCATION. 

; DISK CONTROLLER STAT. 


? BOOTSTRAP COMMUNICATION * 


BE.HOM ==, 001H 

BE.RDA ===== 002H 

BE.RDB ===== 004H 


• HOME ERROR. 

5 READ ERROR A. 
I READ ERROR B. 


5 DISK CONTROLLER MODULE (DCM) LINKAGE * 


DCM. BG ===== BANK. 1+3 


rFIRST DCM SECTOR = 13. 
5 DCM COLD START ENTRY. 


DCM.LN == 0400H 


5DCM LENGTH 


5 ASSEMBLER DIRECTIVES * 

.PADS ?ABSOLUTE ADDRESSING. 

.PHEX ;INTEL HEX FILE FORM. 

.XL. INK ; NO LINKAGE OUTPUT. 

.LOC BANK.0 ;PROGRAM START POINT 


; DELAY MACRO. ALLOWS 1791 TO DIGEST INSTRUCTIONS # 


.DEFINE DELAY == t 
XTHL 
XTHL 
XTHL 
X THL I 


s- #### *- s -a- k- ft »•## * ■* 





I 
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INJECTION MODULE -• JADE DOUBLE D DISK CONTROLLER 
BASE PAUL 


; ****** h-w*#*######*##*#*###***'**##-**'#-'#-#'#-#*****#**#***** 
? SET STACK, START DRIVE MOTOR, AND SET INVERT SW <C) * 

; ******** ***•it#**#*#**##*-)!-##**#****##*#***###**###**#*#* 


GOOD 

31 0400 

BEGIN: LX I 

SP,BANK.1 

S8ET UP STACK. 

0003 

DB40 

IN 

XP.MTX 

5 TURN ON MOTOR. 

oooc 

OEOO 

MV I 

G > 0 

;ASSUME 1793. 

< )()*.» / 

DBOO 

IN 

BL.STS 

SINPUT STATUS. 

0 0 u '/ 

£601 

AN I 

BS.USD 

STEST USER SW 0. 

GOOD 

2002 

JRNZ 

SELECT 

5 GOTO SELECT DRV. 

UUOD 

OEEF 

•MV I 

C, Ol-FH 

51791-01 INVERTS. 






“ C L E A R 1 / V1.0 .1 

INTERRUPT AND SELECT DRIVE 0 * 



?, -*#*****# XKXKKX ###**#####*&*###***###&*■****&# 

00 OF 

CD 009C 

SELECT: CALL 

STATUS 

; 179X--01 FORCED CLEAR. 

00 12 

3E04 

MV I 

A,BC.BSE!BC. 

DRO ;DRIVE 0, ENABLED. 

0014 

0300 

our 

BL.CTL 

;OUTPUT CONTROLS. 



5 ***#•%ft#####*#*###**######*#** 



5 POSITION R/W 

HEAD AT TRACK 

ZERO * 





0016 

2E50 

HOME: MVI 

L, NB .TRK 

5 SET MAX TRACKS. 

0013 

CD 009C 

STEP: CALL 

STATUS 

;GET 179X STATUS. 

00 IB 

E604 

AN I 

DM.TKO 

5TEST TRACK 0 BIT. 

coin 

20 Ob 

JRNZ 

TRACKO 

;TRACK 0 EXIT. 

001F 

2D 

OCR 

L 

5 DEC ATTEMPTS. 

0020 

CA 0091 

.JZ 

ER. HUM 

SCANT FIND TRK 0? 

0023 

DB08 

IN 

XP.STP 

5ISSUE STEP PULSE. 

0025 

11 0008 

LX I 

D,TM.STP 

S STEP INTERVAL TIME. 

0023 

CD 00A9 

CALL 

TIMER 

SPAUSE FOR PERIOD. 

002B 

18EB 

JMPR 

STEP 

5 TRY ANOTHER TIME. 






S LOAD R/W HEAD 

ON SELECTED 

DRIVE * 




0020 

79 

TRACKOs MOV 

A 7 C 

;GET TRACK 0 VALUE. 

002E 

D305 

OUT 

WD.TRK 

5 SET TRACK REGISTER. 

0030 

D307 

OUT 

WD.DTA 

5 SEEK SAME TRACK. 

0032 

FD21 003D 

LX I 

Y,RD.SET 

5 SET NMI RETURN ADDR. 

0036 

3E18 

MV I 

A,DC.HDL 

SHEAD LOAD COMMAND. 

0033 

A9 

XRA 

c 

;INVERT (1791-01). 

0039 

D304 

OUT 

WD.CMD 

5 ISSUE COMMAND. 

003B 

18FE 

JMPR 


SWAIT FOR INTERRUPT. 



5 ****************************************************** 










1 
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? SET-UP FOR DCM READ OPERATION * 


003D 

11 0001 

RD.SET: LX I 

D,TM.DBR 

;DELAY BEFORE READ. 

0040 

CD 00A9 

CALL 

TIMER 

5 GALL MS. TIMER. 

0043 

11 0400 

LXI 

D > BANK.L 

? SET BANK LENGTH 

0046 

21 0400 

LX I 

H> BANK.1 

;DCM LOAD ADDRESS 

0049 

FD21 0089 

LXI 

Y.ER.RDA 

* READ ERROR TRAP. 

004D 

3E0D 

MV I 

A,DCM.SS 

;FIRST SEC OF DCM. 

004F 

A9 

XRA 

C 

;INVERT (1791-01) 

0050 

D306 

OUT 

WD.SEC 

?SET 179X SEC REG. 

0052 

3E90 

MV I 

A,DC.RMS 

; READ MULTI-SECTOR. 

0054 

A9 

XRA 

c 

;INVERT (1791-01). 

0055 

D304 

OUT 

WD.CMD 

5 ISSUE 179X COMMAND. 

0057 

E3 

DELAY 


?ALLOW 179X TO SETTLE. 

005D 

1813 

JMPR 

R.BYTE 

?GOTO READ ROUTINE. 


? DISK INTERRUPT "NMI" ROUTINE * 


0066 


. LOG 

INT.NM 


0066 

DB04 

WO.INT: IN 

WD.STS 

;GET 1791 STATUS. 

0068 

A 9 

XRA 

C 

5 INVERT (1791-01). 

0069 

32 0377 

STA 

BL.DCS 

5 MAKE STATUS VISIBLE. 

006C 

FDE3 

XTIY 


5 EXCHANGE (SP)OIY! 

006E 

ED45 

RETN 


5 BRANCH VECTOR ADDR. 






; ACCEPT EACH 

BYTE AND STORE 

IN MEMORY * 




0070 

DB80 

R.BYTE: IN 

XP.DSH 

5WAIT FOR DATA. 

0072 

DB07 

IN 

WD.DTA 

?INPUT INV DATA. 

0074 

A9 

XRA 

C 

•INVERT (1791-01). 

0075 

77 

MOV 

M, A 

i STORE DCM BYTE. 

0076 

*“>o 

I NX 

H 

!INCREMENT POINTER. 

0077 

IB 

DCX 

D 

;DECREMENT LENGTH. 

0078 

7A 

MOV 

A j D 

;GET HIGH REG. 

0079 

B3 

ORA 

E 

;THEN OR-IN LOW REG. 

007A 

20F4 

JRNZ 

R.BYTE 

5READ ANOTHER BYTE. 









t 


TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 6 
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BASE PAGE 


; TEST READ STATUS, TERMINATE OPERATION, GO DCM * 

; ***#*##tt##*####**##**#*##**#****###**###*#**-tt-##*'##*#-** 


007C 

DB04 

R.TEST: IN 

WD.STS 

?INPUT READ STATUS. 

007E 

A 9 

XRA 

C 

; INVERT (1791-01). 

007F 

£690 

ANI 

DM.RER 

j TEST FOR ERRORS. 

008 3. 

200A 

JRN2 

ER.RDB 

j READ ERROR TRAP. 

0083 

CD 0090 

CALL 

STATUS 

5 TERMINATE READ. 

0086 

03 0403 

JMP 

DCM.BG 

?TRANSFER TO DCM. 






? READ ERROR HAS BEEN DETECTED 





0089 

3E02 

ER.RDA: MVI 

A,BE.RDA 

;LOAD READ ERROR CODE. 

OOSB 

1806 

JMPR 

ER.HLT 

5 GO TO ERROR HALT. 

008D 

3E04 

ER.RDB: MVI 

A,BE.RDB 

5 LOAD READ ERROR CODE. 

008F 

1302 

JMPR 

ER.HLT 

5 GO TO ERROR HALT. 

0091 

3E01 

ER.HOM: MVI 

A,BE.HOM 

? HOME ERROR CODE. 

0093 

32 03 7*3 

ER.HLT: STA 

BL.ERC 

5 DISPLAY ERROR CODE. 

0096 

AF 

XRA 

A 

5ZER0 A REG. 

0097 

D300 

OUT 

BL.STS 

?DESELECT DRIVE. 

0099 

DBl'O 

IN 

XF'.MTO 

5 MOTOR OFF! 

009B 

76 

HLT 


5 TERMINATE. 



; a-****#***#*##'}!-###*#*##*##*#*##**##*##*#*########*#*### 



; GET UPDATED 

1791-01 STATUS 




; #*#***## fr*#**###*####***#*########*#*#****###*#*##-*### 

009C 

3ED0 

STATUS: MVI 

A,DC.STS 

J TYPE 4 - STATUS. 

009E 

A9 

XRA 

C 

; INVERT (1791-01). 

009F 

D304 

OUT 

WD.CMD 

?ISSUE COMMAND. 

00 A1 

E3 

DELAY 


?ALLOW 1791 TIME. 

00A5 

DB04 

IN 

WD.STS 

? GET STATUS 

00 A 7 

A9 

XRA 

C 

$ INVERT (1791-01). 

00A8 

09 

RET 


;RETURN TO CALLER. 



5 *#**#*#**##*#**##*##**#########*###**#*#****#*•**>■*•«••**#•* 



5 TIMER - WAIT 

FOR (BC -a- 1.0) 

MILLISECONDS * 




00 A 9 

3EF7 

TIMER: MVI 

A, 247 

5L0AD INT MS VALUE. 

00 AB 

3D 

MS.INT: DCR 

A 

?DEC FOR i MS. 

OOAC 

20 FD 

JRN.Z 

MS.INT 

5REPEAT FOR 1 MS. 

OOAE 

IB 

DCX 

D 

•TEST for another ms. 

OOAF 

7 A 

MOV 

A, D 

;CHECK REG D. 

OOBO 

B3 

ORA 

E 

»AND REGISTER E. 

OOBI 

2 OF 6 

JRNZ 

TIMER 

;DO ANOTHER 1 MS. 

00B3 

09 

RET 


? TIME PERIOD EXPIRED! 




END 
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-!-++++ SYMBOL TABLE +++++ 


0 

0000 

BANK.1 

0400 

BANK.L 

0400 

BC.DRO 

0000 

DSE 

0004 

BEGIN 

0000 

BE.HOM 

0001 

BE.RDA 

0002 

BE.RDB 

0004 

BL.CTL 

0000 

BL.DCS 

0377 

BL.ERC 

0376 

BL.STS 

0000 

BS.USC 

0001 

DCM.BG 

0403 

DCM.LN 

0400 

DCM.SS 

GOOD 

DC.HDL 

0018 

DC.RMS 

0090 

DC.STS 

00 DO 

DM.RER 

009C 

DM.TKO 

0004 

ER.HLT 

0093 

ER.HOM 

0091 

ER.RDA 

0089 

ER.RDB 

008D 

HOME 

0016 

INT.NM 

0066 

MS.INT 

00 AB 

NB.TRK 

0050 

RD. SET- 

003D 

R.BYTE 

0070 

R.TEST 

007C 

SELECT 

00 OF 

STATUS 

009C 

STEP 

0018 

TIMER 

00 A 9 

TM.DBR 

0001 

TM.STP 

0008 

TRACKO 

002D 

WD.CMD 

0004 

WD.DTA 

0007 

WD.INT 

0066 

WD.SEC 

0006 

WD.STS 

0004 

WD.TRK 

0005 

XP.DSH 

0080 

XP.MTO 

0010 

XP.MTX 

0040 

XP.STP 

0008 
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BIOS l 
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PAGE 


; ##-St•ft*-* -ftftftftftftftftftftftftftftftftftftftftftftftftftftft ft ftftftftftftftftftftftftftftftftftft# 
; * 
; PROGRAM IDs BIOS LOADER TRANSIENT * 

5 * 

; ftftftftftft St#***###***######*#*#*****####**#*#**#**-**#**## 
; * 
5 PROPERTY OF: JADE COMPUTER PRODUCTS * 

; 4901 W. ROSECRANS BLVD. * 

? HAWTHORNE, CALIFORNIA * 

5 90250, U.S.A. * 

; * 

; ft#*ftftft*ftftftftftft*ftftftftftftft*ftft#ftft#ft#*ftftft*ftftftftftft*ftftft##ftft*ftftft 

s'. * 

; VERSIONS 2.2 * 

5 * 

J ftftftft^ft-ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft* 

? THE BIOS LOADER IS READ INTO THE DCM SECTOR BUFFER * 
5 AFTER THE DCM PROGRAM HAS INITIALIZE. THIS PROGRAM # 
; THEN READS THE BIOS MODULE (IK) INTO BANK 1. THE » 
? COMMAND BLOCK IN DCM IS SET TO INDICATE THE BIOS * 
5 MODULE SIZE AND ITS LOAD ADDRESS. THE BIOS LOADER * 
S PROGRAM IS GENERATED BY MOVCPM.COM AS THE COLD * 
? START LOADER (900-97F HEX). * 

; ftftftftftft*ft-ftft*ftftftftftftftftft*ftftftftftftftftftftftft*ftft*ftftft*ftftft*ft SK *#* 
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BIOS LOADER TRANSIENT - JADE DO CONTROLLER 
EQUATES 



; **##*£•****##* #*########*#*##***#*######***#*#***•**••**•# 
? CONTROLLER PORT ASSIGNMENTS * 

5 


0000 

BL.STS 

~~~ 

OOOH 

5 BOARD STATUS 

0000 

BL.CTL 

= = ' 

DOOM 

5 BOARD CONTROLS 

0004 

WD. CiiD 

— = 

004H 

51791 COMMAND REGISTER 

0004 

WD.STS 


004H 

51791 STATUS REGISTER 

0006 

WD.SEC 


006H 

51791 SECTOR REGISTOR 

0007 

WD.DTA 


007H 

51791 DATA REGISTER 

0010 

XP.MTO 


01 OH 

5 MOTOR TIME OUT 

0040 

XP.MTX 

=r = 

04 OH 

5 MOTOR TIME EXTEND 

0080 

XP.DSH 


080H 

5 DATA SYNC HOLD 


? 1791 01 COMMAND AND MASK. * 

OUb'O DC «RDS = — 10000000B ? REiAEf SECTOR. 

009C DM.RER »« 10011100B 5 READ ERROR MASK. 


;*##&#####&##*&####*#&&**###**#########*####**######## 
$ SYSTEM ASSIGNMENTS * 

5 ######£#*# 


0014 

NMBR.K 

=™ 

20 

5 SYSTEM SIZE IN K. 

0400 

LNG.IK 


1024 

5 TOTAL BYTES IN IK. 

5000 

CPM.8Z 

srr;: 

NMBR.K#LNG.IK 

5 TOTAL SYSTEM BYTES. 

0600 

BI OS« S 

™=:~ 

LNG.lK*3/2 

5 BIOS ALLOCATED SIZE. 

4 A 00 

BIGS.A 

-- 

CPM.SZ-BIOS'.S 

5 BIOS LOAD ADDRESS. 




5 INTERNAL MEMORY ASSIGNMENTS 




1 ooo 

BANK .0 


1 OOOH 

5 LOWER BANK ADDRESS. 

0400 

BANK.L 

s==s 

0400H 

5 IK BANK LENGTH. 

1400 

BANK.1 


BANK.O+BANK.L 

5 UPPER BANK ADDRESS. 

1370 

IO.BLK 


BANK.0+0370H 

51/0 BLOCK ADDRESS. 

1377 

CB.STS 

— - 

10.BLK+0007H 

5 COMMAND STATUS BYTE. 

1378 

CW.LAD 

— - 

10.BLK+0008H 

•BIOS LOAD ADDR LOC. 

137 A 

CW.LNG 

~:r= 

I0.BLK+OOOAH 

5 BIOS LOAD LENGTH LOC. 

1380 

SEC.BF 

38 « 

BANK.0+0380H 

5 SECTOR BUFFER AREA. 


5 #&&&&&#&&&&&##&######*####*##&######■*#■&#*#*#######•&•«••* 


5 BIOS 

PROGRAM 

LINKAGE. 




0004 

SEC.BG 

== 

4 

5 FIRST BIOS SECTOR. 

0008 

SEC.NM 

s=s= 

r;. 

5 NUMBER OF SECTORS. 

00 OB 

SEC.EX 


SEC.BG+SEC.NM-l 

5LAST BIOS SECTOR. 


-jjT 
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; ASSEMBLER DIRECTIVES * 

; ^ft***#**#**##*###*##**#***##*##*-#-***#'*****-*##*###**** 




, PABS 
, PHEX 
XL INK 
, LOG 


SEC.BF 


;PROGRAM START POINT 


; PAUSE MACRO. ALLOWS 1791 TO DIGEST INSTRUCTIONS! * 


.DEFINE 


PAUSE 
XTHL 
XTHL 
XTHL 
XTHL 1 


- L 


; tt*###**##*###**#*###*#***#'**#-*#*#*-*'***####-*###-**'#--**#* 

5 INITIALIZE BIOS READ OPERATION # 

? **##*#*##*#•&*#*#*#*#* #** *#-»* 


1 380 

21 0400 

BEGIN: LX I 

H,LNG.IK 

JBIOS LOAD LENGTH. 

i 383 

2 2 i 3 7 A 

SHLD 

CW.LNG 

? LOAD LENGTH SET. 

1386 

21 4A00 

LX I 

H, BIOS.A 

;BIOS SYSTEM ADDR. 

1389 

22! 1378 

SHLD 

CW.LAD 

5 LOAD ADDRESS SET. 

138 C 

21 1400 

LX I 

H» BANK. 1 

;BIOS LOAD POINT. 



$ **#**#*####**#*#*##**#*###########•*##*# 



; SET-UP FOR 

EACH READ SECTOR 

COMMAND * 



5 ##**#*#####***£--*#*■** 

138F 

FD21 1 SAB 

RD.SEC: LX I 

Y» RD.TST 

5 SET NMI VECTOR. 

1393 

3A 1307 

LDA 

SECTOR 

?FIRST BIOS SECTOR. 

1396 

A 9 

XRA 

C 

5 INVERT (1791-01). 

1397 

0306 

OUT 

WD.SEC 

5 SET 1791 SEC REG. 

1 399 

3E80 

MV I 

A,DC.RDS 

;READ SECTOR CMND. 

139B 

A9 

XRA 

c 

.;INVERT (1791-01). 

1390 

D304 

OUT 

WD.CMD 

5 ISSUE 1791 COMMAND. 

139E 

E3 

PAUSE 


5 ALLOW 1791 TO SETTLE. 



? &#&*##########&###*&####*##&*###&■&# Sr#-#'*###-*# a-* 



? READ SECTOR 

OPERATION 





13A2 

DBSO 

RD.BYT: IN 

XP.DSH 

;WA1T FOR DATA. 

13A4 

DB07 

IN 

WD.DTA 

;INPUT INV DATA. 

13A6 

A 9 

XRA 

c 

;INVERT (1791-01). 

13A7 

77 

MOV 

M, A 

;STORE DCM BYTE. 

13A8 

23 

I NX 

H 

;INCREMENT POINTER. 

13A9 

1SF’7 

JMPR 

RD.BYT 

;REPEAT OPERATION. 


; •a-#**##**###****####*##*•## -a-#-****# a -a-*•»•«• *■•»•■«•«• 
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; ##*#**###*##**#####*##*##***##**##**###***#*•**■*•*##*•#* 
? CHECK READ SECTOR STATUS* REPEAT UNTIL BIOS LOADED * 


1 SAB 

E69C 

RD.TST* ANI 

DM.RER 

;T est FOR ERRORS. 

1 SAD 

200D 

JRNZ 

ERRORS 

5 ERROR DETECTED. 

1 SAP 

3A ISC7 

LDA 

SECTOR 

5 GET SECTOR NMBR. 

13B2 

FE'OB 

CPI 

SEC.EX 

;CHECK IF LAST SEC 

1 SB 4 

280F 

JR Z 

FINISH 

5 GO IF FINISHED. 

13B6 

sc 

I NR 

A 

SINCREMENT. 

1 SB 7 

32 13C7 

STA 

SECTOR 

;STORE AWAY. 

13BA 

18D3 

JMF'R 

RD.SEC 

5 READ NEXT SECTOR. 


? READ ERROR HAS BEEN DETECTED * 

5 


1 SBC 

32 1377 

ERRORS: STA 

CB.STS 

5 DISPLAY ERROR STATUS. 

13BF 

AF 

XRA 

A 

5 ZERO A REGISTER. 

1 SCO 

D300 

OUT 

BL.CTL 

?DESELECT DRIVE. 

1 SC 2 

DB10 

IN 

XP.MTO 

;MOTOR OFF! 

13C4 

76 

HLT 


;TERMINATE. 


) 


1305 FB 

13C6 76 


5 BIOS SECTOR HAVE BEEN LOADED * €\ 

FINISH: El 5 ENABLE INTERRUPTS. 

HLT ?SHUTDOWN BOARD. 

; tt#*##*#**#*##*###**##*#**####**#**###########*##**'*## 

? SECTOR NUMBER STORAGE * 

« *##*tf*#####***##***##*######*##**#*####*######**#*#*# 


13C7 04 SECTOR: .BYTE SEC.BO 5 SECTOR COUNTER. 

. END 
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TDL ZSO CP/M DISK ASSEMBLER VERSION 2.21 
BIOS LOADER TRANSIENT - JADE DD CONTROLLER 
+++++ SYMBOL TABLE +++++ 


BANK.0 

1000 

BANK.1 

1400 

BANK.L 

0400 

BEGIN 

BIOS.A 

4A00 

BIOS.S 

0600 

BL.CTL 

0000 

BL.STS 

CB.STS 

1377 

CPM.SZ 

5000 

CW.LAD 

1378 

CW.LNG 

DC«RDS 

0080 

DM.RER 

009C 

ERRORS 

13BC 

FINISH 

IO.BLK 

1370 

LNG.IK 

0400 

NMBR.K 

0014 

RD.BYT 

RD.SEC 

13SF 

RD.TST 

.1 SAB 

SECTOR 

13C7 

SEC.BF 

SEC.BG 

0004 

SEC.EX 

00 OB 

SEC.NM 

0008 

WD.CMD 

WD.orA 
XP. M'T'O 

0007 

0010 

WD.SEC 
XP.MTX 

0006 

0040 

WD.STS 

0004 

XF’.DSH 


1380 
0000 
137 A 
13C5 
13A2 
1380 
0004 
0080 



FORMAT 




TDL Z80 CP/H DISK ASSEMBLER VERSION 2.21 PAGE 1 

FORMAT - -JADE DOUBLE D 
TITLE PAGE 




? * 

? PROGRAM IDs FORMAT * 

? * 

; tt*######*-**##*#########*######*##***#'**##*###*#*****'#-* 

; * 

. PROPERTY OF: JADE COMPUTER PRODUCTS * 

; 4901 W. ROSECRANS BLVD. * 

? HAWTHORNE, CALIFORNIA * 

5 90250, U.S.A. * 

5 * 

; ■*•**■*###*####*#**###•&#•*#•*•*#*#**■&#■****#•*##•**##•»**#■«•#•»■*•«•■#• 

; * 

. VERSION: 2.2 * 

; # 

$ •& 

; WRITTEN BY: STAN KRUMME * 

? * 


; tt#*#*#####*###***#***#*#**#*-*-*####*-*#-**#-###*#--#--#-#***-*#-* 

; FORMAT IS A SYSTEM UTILITY WHICH PROVIDES A MEANS * 
; TO WRITE A SINGLE OR DOUBLE DENSITY FORMAT ON ANY * 
? OF DRIVES A THROUGH D. THIS UTILITY ALSO PROVIDES * 

5 A COPY-SYSTEM—TRACKS FEATURE. THIS IS A USEFUL * 

5 FUNCTION FOR FORMAT AS THE SYSTEM TRACKS CAN BE * 
; WRITTEN WITH THE OPERATING SYSTEM WHEN FORMATTED. * 
; THE USER CAN FORMAT ONLY THE SYSTEM TRACKS OF OLDER * 

? SINGLE DENSITY DISKETTES SUCH THAT THESE DISKETTES * 

CAN CARRY THE OPERATING SYSTEM WITHOUT ERASING THE * 
,* DATA TRACKS. FORMAT.COM IS 8080/8085/ZSO COMPATABLE * 





TDL Z80 CP/M DISK ASSEMBLER VERSION 
FORMAT - JADE DOUBLE D 
PROGRAM EQUATES 
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; DRIVER MODULE DEFINITIONS * 


OOOA 

LF 

— — 

OOAH 

5 ASCI I LINE FEED. 

OOOD 

CR 

= =r 

OODH 

? CARRAIGE RETURN. 

0100 

TPA 

=™ 

0100H 

■; TRANSIENT PROGRAM. 

0003 

CNTL.C 

ss; 

•JT* 

? REQUEST REBOOT CPM. 

0000 

TRK. 0 

= = 

0 

;TRACK 0. 

0001 

TRK. 1 

= = 

1 

;TRACK 1. 

0002 

TRK. 2 

=s= 

2 

;TRACK 2. 

004C 

TRK.76' 

ssss * f. 

76 

?TRACK 76. 

0080 

SEC.SZ 


128 

5 128 BYTE'S PER SECTOR. 

0001 

ID.SEC 


I 

?ID SECTOR NUMBER. 

0000 

REBOOT 


0 

;REBOOT ADDRESS. 


? SYSTEM TRACKS COPY DEFINITIONS * 


1000 

TKO.LP 

== ' 1OOOH 

;TRACK 0 

TPA LOAD ADDR 

000 i 

TKO.FS 

—= 1 

5 TRACK 0 

FIRST SECTOR. 

001A 

TKO.LS 

" — 2 6 

;Track o 

LAST SECTOR. 

001A 

TKO.NS 

== TKO.LS-TKO.FS+1 

;TRACK 0 

NMBR SECTORS. 

OFSO 

TKO.LC 

=* TKO.LP-SEC.SZ*TKO.FS 

;TRACK 0 

LOAD CONSTANT 

ODOO 

TKO.SZ 

== SEC.SZtfTKO.NS 

5 TRACK 0 

LOAD SIZE. 

1DOO 

TK1.LP 

== TKO.LP+TKO.SZ 

;TRACK 1 

TPA LOAD ADDR 

0001 

TK1.FS 

=== 1 

?TRACK 1 

FIRST SECTOR. 

0030 

TK1.LS 

4 W 

JTRACK 1 

LAST SECTOR. 


; ■s-**##***#*##■» #•»#•*##■&s-s-#*ft#*##*#****###***###****#•»#*## 
5 INJECTION MODULE DEFINITIONS . * 

; *###*##•»** *•»**■«•*####•»•■»#**•«•#**#■}{••»*****■»■•»#•»•*•»**«•#*#•«■■»■•»■»•# 


1700 

FMT.EA == 

1 ZOOM 

5 FORMAT EXEC ADDRES: 

000-5 

WD.TRK == 

005H 

?DOUBLE D TRACK POP 

0007 

WD.DTA == 

007H 

5 DOUBLE D DATA PORT 

0080 

XP.DSH == 

80H 

5 DATA SYNC HOLD PGR' 

0000 

ZEROS 

OOOOOOOOB 

;ALL ZERO BYTE. 

OOFF 

ONES 

1111i111B 

5 ALL ONES BYTE. 


; #########*•#####*##*####•#*{••«••»*tt#*#*-#*##**-##*######## 

5 BDOS CALL - VECTOR NUMBERS * 


0005 

0001 

0002 . 


BDOS 

CNS.RD == 
CNS.WR == 


0005H 

1 


5 SYSTEM CALL ADDR. 
? READ CONSOLE. 

5 WRITE CONSOLE. 
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FORMAT - JADE DOUBLE D 
PROGRAM EQUATES 
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; BIOS VECTOR DEFINITIONS * 

; ##*****#**#########*####*#*#-#####--***##**********#***#* 


00 IB 

BS.DSK 


01BH 

?SELECT DISK OFFSET. 

00 IE 

BS.TRK 

= = 

01 EH 

5 SET TRACK OFFSET. 

0021 

BS.SEC 

== 

021H 

;SET SECTOR OFFSET. 

0024 

BS.DMA 

= = 

024H 

;SET ADDRESS OFFSET. 

0027 

BS. REIS' 


027H 

;READ SECTOR OFFSET. 

002A 

BS.URS 

= = 

02AH 

5 WRITE SECTOR OFFSET 

0033 

BS.FMT 


(_) 3 S H 

? FORMAT TRACK OFFSET 

0002 

BS.PAG 


0002TI 

;BIOS VECTOR POINTER 

0001 

LOG.VC 


1 

5 DRV SEL DONT LOGON. 


? ASSEMBLER DIRECTIVES * 




.18080 
. PADS 
. F'HEX 
.XL INK 
. LOG 


0100 


TP A 





A* 
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FORMAT - JADE DOUBLE D 
PROGRAM START 


; ##*#•*#*######* tf#*##*###**-#**-*##**'*#'*#*-##*#-**##*##-**-*#'* 

! PROGRAM BEGINS * 

; **###*###** tt####*#**###*#*#****##*-**'***#**********##*#- 

0100 03 0138 BEGIN: JMP INIT ;GO TO INITIALIZE. 


; ASCII IDENTIFICATION INSERT * 

; *#***##*###***#*** 


0103 

4A4144452043 

.ASCII 

'JADE COMPUTER PRODUCTS " 

Oil A 

444F55424045 

a ASCI 1 

-DOUBLE I 

J - FORMAT •' 

0120 

56455253494F 

•ASCII 

'VERSION 

♦r- • ^ 



5 **#■&***###****•**•*•*###***#**•*##*■*#*-******###*##**##*#*# 



9 SET STACK POINTER AND j 

ISSUE LOG-ON * 




0138 

31 0100 

INIT: LX I 

SP.TPA 

5SET STACK POINTER. 

013B 

21 0521 

LX I 

H ? MSG•BG 

;LOAD MESSAGE ADDR. 

013E 

CD 0281 

CALL 

MSG.OT 

?ISSUE MESSAGE. 






; FUNCTION SELEC 

:T I ON AND 

CONTROL DISTRIBUTOR * 



- ft######*################# 

0141 

21 0560 

i § 

FUN.BG: LX I 

H,MSG.FL 

5FUNCTION LIST ADDRESS. 

0144 

CD 0281 

CALL 

MSG .07 

5 ISSUE MESAGE. 

0147 

CD 028F 

CALL 

CNS.IN 

? GET CONSOLE CHARACTER. 

014 A 

FE31 

CPI 

II | II 


0140 

CA 017E 

JZ 

FUN. 1 

JFMT DOUBLE DENSITY. 

014F 

FE32 

CPI 

" 2 " 


0151 

CA 01E3 

JZ 

FUN. 2 

5 FMT SINGLE DENSITY. 

0154 

FE33 

CPI 

II •"» II 
•-» 


0156 

CA 01BB 

JZ 

FUN. 3 

;FMT 3740. 

0159 

FE34 

CPI 

11 4 « 


015B 

CA 022B 

JZ 

FUN. 4 

? FMT SYSTEM TRACKS. 

015E 

FE35 

CPI 

it cr it 


0160 

CA 0259 

JZ 

FUN. 5 

?READ SYSTEM TRACKS. 

0163 

FE36 

CPI 

II f II 


0165 

CA 0260 

JZ 

FUN. 6 

?WRIT£ SYSTEM TRACKS. 

0168 

FE26 

CPI 

n &” 


016 A 

CA 03FD 

JZ 

RST .6 

;DEBUG TDL TRAP. 

016D 

FE27 

CPI 

ll II 


016F 

CA 03FE 

JZ 

RST.7 

. DDT trap. 

0172 

21 0660 

L.XI 

M ■> MSG.SE 

;SELECT ERROR MESSAGE. 

0175 

32 0670 

STA 

LTR.SE 

5 STORE BAD SYMBOL. 

0178 

CD 0281 

C A L L. 

MSG.OT 

?ISSUE MESSAGE. 

017B 

03 0141 

JMP 

FUN.BG 

5 TRY SELECTION AGAIN. 


■x- ->r •£■ yr 'X' X- x~ -X XX- -fr ><■ x- X- K- X- x- "£r ->c -X- -& -x- x- x- X- X- xr ‘X- “X' ~>-r X- x- X- x- x- X-X- x- -if x X- 3 -&• X x- -& 
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FORMAT - JADE DOUBLE D 
FUNCTION CONTROLLERS 


; **##*###*##**#*#**#****####***********#*****##****#***- 
5 FUNCTION 1 - FORMAT IN DOUBLE DENSITY * 

; #######*##**####«•##«*#####«######**###**«■#####**##*##* 


017E 

3A 04D2 

FUN.is 

LDA 

DD.FLG 5 

LOAD DDENS FLAGS. 

0181 

32 0406 


STA 

F.FLAG * 

STORE FORMAT FLAGS. 

0184 

21 068B 


LX I 

H j MSG.FD 

FORMAT DRIVE MESSAGE. 

0187 

CD 03AA 


L* ALL 

SEL.DR 

SELECT DRIVE LETTER. 

018 A 

DA 0141 


JC 

FUN.BG 

CARRY: RESELECT. 

018D 

3E00 


MVI 

A.TRK.O : 

TRACK 0. 

018F 

32 0404 


STA 

TRK.NO : 

SET TRACK NUMBER. 

0182 

CD 02E4 


CALL 

FMT.SD 

FORMAT TRACK SDENS. 

0195 

DA 017E 


JC 

FUN. 1 

JUMP ERROR DETECTED. 

0198 

3E01 


MVI 

A 7 TRK.1 

TRACK 1 VALUE. 

019 A 

32 0404 


STA 

TRK.NO ! 

SET TRACK NUMBER. 

019D 

CD 02EA 

..REFT: 

CALL 

FMT.DD = 

FORMAT TRACK DDENS. 

01 AO 

DA 017E 


JC 

FUN.1 ! 

JUMP ERROR DETECTED. 

01 A3 

3A 0404 


LDA 

TRK.NO s 

LOAD TRACK NUMBER. 

01A6 

FE4C 


CPI 

TRK.76 i 

WAS IT THE LAST TRK. 

01A8 

CA 0iB2 


JZ 

. . ID : 

AFTER LAST TRACK. 

01AB 

30 


INR 

A ! 

INCREMENT TRACK NO. 

01 AC 

32 0404 


STA 

TRK.NO : 

STORE TRACK NUMBER. 

01AF 

03 019D 


JMP 

..REPT ! 

FORMAT NEXT TRACK. 

01B2 

21 04A1 

. . IDs 

LX I 

H,IDS.DD : 

ID SECTOR: DDENS. 

01B5 

CD 02C1 


CALL 

WRT.ID 

WRITE ID SECTOR. 

01 B 8 

C3 017E 


JMP 

FUN.1 • 

ANOTHER DISK? 






5 FUNCTION 3 - 

FORMAT STANDARD 3740 ' * 




01BB 

3E00 

FUN.3: 

MVI 

A» 0 * 

3740 SDENS FLAGS. 

01 BD 

32 0406 


STA 

F.FLAG ! 

STORE FORMAT FLAGS. 

01 CO 

21 068B 


LX 1 

H 7 MSG.FD : 

FORMAT DRIVE MESSAGE. 

01C3 

CD 03AA 


CALL 

SEL.DR ! 

SELECT DRIVE LETTER. 

01 C 6 

DA 0141 


JC 

FUN.BG i 

CARRY: RESELECT. 

01C9 

3E00 


MVI 

AjTRK.0 ■ 

TRACK 0. 

01CB 

32 0404 


STA 

TRK.NO ■ 

SET TRACK NUMBER. 

DICE 

CD 02E4 

..REPT: 

CALL 

FMT.SD 1 

FORMAT TRACK SDENS. 

01D1 

DA 01BB 


JC 

FUN.3 ! 

JUMP ERROR DETECTED. 

01D4 

3A 0404 


LDA 

TRK.NO ; 

LOAD TRACK NUMBER. 

01D7 

FE4C 


CPI 

TRK.76 S 

WAS IT THE LAST TRK. 

01D9 

CA 01BB 


JZ 

FUN. 3 

AFTER LAST TRACK. 

01 DC 

3C 


INR 

A « 

INCREMENT TRACK NO. 

01DD 

32 0404 


STA 

TRK.NO 

STORE TRACK NUMBER. 

01 E 0 

C3 01CE 


JMP 

..REPT 

FORMAT NEXT TRACK. 


*#■*•«• •*•*** ■«• * tf***######*##**#*#-* •»■•«•*■»■*■»■&•»••«•-a-# •»•■»■#•«•■»••»•*■»•»■«• *■# 
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FORMAT - JADE DOUBLE D • V? 
FUNCTION CONTROLLERS 


; •a-#-***##***#•*#* -S-# 




; FUNCTION 2 • 

FORMAT IN S 

INGLE DENSITY * 




01E3 

3A 0452 

FUN.2: LDA 

SD.FLO 

5 LOAD SDENS FLAGS. 

01E6 

32 0406 

STA 

F.FLAG 

? STORE FORMAT FLAGS. 

01E9 

21 06SB 

LX I 

H.MSG.FD 

?FORMAT DRIVE MESSAGE. 

01 EC 

CD 03'AA 

CALL 

SEL.DR 

;SELECT DRIVE LETTER. 

01EF 

DA 0141 

JC 

FUN.BG 

;CARRY: RESELECT. 

01F 2 

3E00 

MVI 

A,TRK.0 

;TRACK 0. 

OIF 4 

32 0404 

STA 

TRK.NO 

5 SET TRACK NUMBER. 

OIF 7 

CD 02E4 

CALL 

FMT.SD 

5 FORMAT TRACK SDENS. 

01 F mi 

DA 01E3 

JC 

FUN. 2 

?JUMP ERROR DETECTED. 

01FD 

3E01 

MV I 

A,TRK.1 

5 TRACK 1 

01FF 

32 0404 

STA 

TRK.NO 

»SET TRACK NUMBER. 

0202 

CD 02EA 

CALL 

FMT.DD 

5FORMAT TRACK DDENS. 

0205 

DA 01E3 

JC 

FUN. 2 

? JUMP ERROR DETECTED. 

0208 

3E02 

MVI 

A,TRK.2 

;TRACK 2. 

020A 

32 0404 

STA 

TRK.NO 

5SET TRACK NUMBER. 

020D 

CD 02E4 

..REPT: CALL 

FMT.SD 

?FORMAT TRACK SDENS. 

0210 

DA 01E3 

JC 

FUN. 2 

?JUMP ERROR DETECTED. 

0213 

3A 0404 

LDA 

TRK.NO 

;LOAD TRACK NUMBER. r 

5 WAS IT THE LAST TRK. 2 
;AFTER LAST TRACK. 

02 IS 

FE4C 

CPI 

TRK.76 

0218 

CA 0222 

JZ 

. . ID 

02 1 B 

3C 

I NR 

A 

5 INCREMENT TRACK NO. 

021C 

32 0404 

STA 

TRK.NO 

;STORE TRACK NUMBER. 

02 IF 

C3 020D 

JMP 

..REPT 

5 FORMAT NEXT TRACK. 

0222 

21 0421 

..IDs LX I 

H,IDS.SD 

5 ID SECTOR: SDENS. 

0225 

CD 02C1 

CALL 

WRT.ID 

; WRITE ID SECTOR. 

0228 

C3 01E3 

JMP 

FUN. 2 

? ANOTHER DISK? 



5 tt#*^**#####**##*###**#*####*####^*#**^#*#**####*##*^#* 



? FUNCTION 4 - 

FORMAT JADE 

SYSTEM TRACKS ONLY * 




0228 

3A 0452 

FUN.4? LDA 

SD.FLO 

; LOAD SDENS FLAGS. 

022E 

32 0406 

STA 

F.FLAG 

•STORE FORMAT FLAGS. 

0231 

21 068B 

LX I 

H,MSG.FD 

5 FORMAT DRIVE MESSAGE. 

0234 

CD 03AA 

CALL 

SEL.DR 

5 SELECT DRIVE LETTER. 

0237 

DA 0141 

JC 

FUN.BG 

? CARRY: RESELECT. 

023A 

3E00 

MVI 

A.TRK.O 

; TRACK 0. 

023C 

32 0404 

STA 

TRK.NO 

» SET TRACK NUMBER. 

023F 

CD 02E4 

CALL 

FMT.SD 

; FORMAT TRACK SDENS. 

0242 

DA 022B 

JC 

FUN. 4 

5 JUMP ERROR DETECTED. 

0245 

3E01 

MVI 

A,TRK.1 

;TRACK 1 

0247 

32 0404 

STA 

TRK.NO 

» SET TRACK NUMBER. 

024A 

CD 02EA 

CALL 

FMT.DD 

5 FORMAT TRACK DDENS. 

024D 

DA 022B 

JC 

FUN. 4 

? JUMP ERROR DETECTED. 

0250 

21 0421 

LX I 

H,IDS.SD 

5 ID SECTORS SDENS. 

; WRITE ID SECTOR. ^ 

0253 

CD 02C1 

CALL 

WRT.ID 

0256 

C3 022B 

JMP 

FUN. 4 

ANOTHER DISK? 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2. 
FORMAT -- JADE DOUBLE 0 
FUNCTION CONTROLLERS 


; ■fr*#*-****##*#####*##*##*#*#-*#*####**#**##*#*#*#***#*#** 

5 FUNCTION 5 - READ SYSTEM TRACKS * 

5 ###*###*###*#*#*#*#####■*#•*###•*******###*##•**■#••*•#••#■#•*#•«••#•* 


0259 

21 06B7 

FUN.5: LX I 

H i MSG.RS 

;READ SYSTEM MESSAGE. 

025C 

CD 03AA 

CALL 

SEL.DR 

?SELECT DRIVE LETTER. 

025F 

DA 0141 

JC 

FUN.BG 

»GOTO RESELECT. 

0262 

3E27 

MV I 

AiBS.RDS 

;READ SECTOR VECTOR. 

0264 

32 0401 

STA 

RW.OPV 

;TRANSFER IS READ. 

0267 

CD 0314 

CALL 

TRNSFR 

»READ SYSTEM TRACKS. 

026A 

C3 0141 

JMP 

FUN.BG 

? RESELECT FUNCTION. 






? FUNCTION 6 - 

WRITE SYSTEM 

TRACKS * 




026D 

21 06D3 

FUN.6: LXI 

Hi MSG.WS 

;WRITE SYSTEM MESSAGE. 

0270 

CD 03AA 

CALL 

SEL.DR 

;SELECT REQUESTED DRV. 

0 all 7 O 

DA 0141 

JC 

FUN.BG 

iGOTO RESELECT. 

0276 

3E2A 

MV I 

A» BS.WRS 

;WRITE SECTOR VECTOR. 

0278 

32 0401 

STA 

RW.OPV 

5 TRANSFER IS WRITE 

027B 

CD 0314 

CALL 

TRNSFR 

{WRITE'SYSTEM TRACKS. 

027E 

C3 026D 

JMP 

FUN. 6 

5 WRITE ANOTHER DISK. 
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FORMAT* - JADE DOUBLE, D 
TEXT UTILITIES 


; MESSAGE DISPLAY ROUTINE * 


0281 

F5 

MSG.QT* PUSH 

PSW 

5 SAVE CALLER FLAGS 

0282 

7E 

..REPT: MOV 

A,M 

;LOAD CHARACTER. 

0283 

CD 029C 

CALL 

cns. or 

;CONSOLE OUTPUT. 

0286. 

7E 

MOV 

A,M 

;SAME CAHRACTER. 

0287 

2 c» 

I NX 

H 

;INCREMENT POINTER 

0283; 

E680 

AN I 

080H 

5 TEST SIGN BIT. 

028A 

CA 0282 

JZ 

..REPT 

;ANOTHER CHARACTER 

028D 

FI 

POP 

PSW 

?RESTORE FLAGS. 

028E 

C9 

RET 


;RETURN TO CALLER. 


5 ft##############################'##-*-*'###-#-########-*'#####* 

? CONSOLE LINKAGE - BDOS CALLS * 


028F 

OEO1 

CNS.IN: 

MV I 

C»CNS.RD 

;BDOS CONSOLE READ. 

0291 

CD 0005 


CALL 

BDOS 

;SYSTEM CALL. 

0294 

E67F 


AIM I 

07FH 

? 7 BIT ASCII. 

0296 

F" E_ 0 U 


CPI 

CNTL. C 

5 C H E C K U 0 N 1R U L ~~ C« 

0298 

CA 0000 


JZ 

REBOOT 

5 REBOOT SYSTEM. 

029B 

C9 


RET 


?RETURN CALLER. 

029C 

E5 

CNS.OT: 

PUSH 

H 

5 SAVE TEXT INDEX. 

029D 

5F 


MOV 

E, A 

;MOVE CHARACTER. 

029E 

OE OE¬ 


MV I 

C.CNS.MR 

■BDOS CONSOLE WRITE. 

02A0 

CD 0005 


CALL 

BDUS 

;SYSTEM CALL. 

02A3 

El 


POP 

H 

5 SAVE TEXT POINTER. 

02A4 

C9 


RET 


;RETURN CALLER. 



; ########&&#&&&###&#&####&#&#&#■&##&##&#*##&&■&&% #■&&##&*■& 
5 DISPLAY HEXIDECIMAL VALUE * 

? ft*##########*####*#*##*##**###*##*#########*# &##■&#*#*# 


02A5 

7C 

HXW.GT: 

MOV 

A? H 

5 LOAD HIGH ORDER. 

02 A 6 

CD 02AA 


CALL 

HXB.OT 

;DO HIGH BYTE. 

02A9 

7D 


MOV . 

At L 

;LOAD LOW ORDER. 

02AA 

F5 

HXB.OT: 

PUSH 

PSW 

* SAVE CHARACTER. 

02AB 

OF 


RRC 


5 SHIFT 

02 AC 

OF 


RRC 



02AD 

OF 


RRC 



02AE 

OF 


RRC 



02AF 

CD 02B3 


CALL 

HXN.OT 

. 5 DO UPPER NIBBLE. 

02B2 

FI 


POP- 

PSW 

;GET LOWER NIBBLE. 

02B3 

E60F 

HXN.OT: 

AIM I 

OOFH 

?MASK NIBBLE. 

02B5 

FEOA 


CPI 

00 AH 

5 LESS THAN 10? 

02 B 7 

DA 02BC 


JC 

. . NMBR 

;D0 NUMBER THING. 

02BA 

C607 

..LTTRs 

ADI 

••• p, •••._ ••• 9 •- _ i 

“ADD LETTER OFFSET 

02BC 

C630 

. . NMEiR: 

ADI 

o ••' 

;START AT ZERO. 

02 BE 

C3 029C 


JMP 

CNS.OT 

; CONSOLE OUTPUT". 



##*#*##*########■&■&**###&#*##&###■&#■&&&&&&#&&#&##■&<-&#&&# 
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C '-.TDL. Z80 CP/M DISK ASSEMBLER VERSION 2.21 
/FORMAT - JADE DOUBLE D 
WRITE DISKETTE IDENTITY 


j •*#**#**#*#•*#■****##***#*##**•*#***#*#•#•**#•*##****#**•«••»•#** 

J WRITE ID SECTOR * 

; #*#*####*#**###-K^#-*****##********#****tf #***■***#****##••* 

j #*•*#•«••*#• ( SET TRANSFER ADDRESS ) *********************** 


02 Cl 

44 

WRT.ID: MOV 

Bi H 


;mgv hl to bc:. 

02 C2 

4D 

MOV 

C,L 


jmov hl to bc. 

02 C 3 

2E24 

MVI 

LiBS.DMA 


5BI0S DMA VECTOR. 

02C5 

CD 03F8 

CALL 

BI OS- 


J SET TRANSFER ADDRESS. 



j *■«•■«• #•*•** ( SET 

TRACK TO ZERO 


02 C8 

OEOO 

MVI 

C,TRK.0 


;TRACK 0 SET. 

02CA 

2 E1E 

MVI 

L, BS.TRK 


JBIOS TRACK VECTOR. 

02 CC 

CD Osf-8 

CALL 

BI OS- 


5 SET TRACK NMBR. 



; ■K-if-#"***"* ( SET 

SECTOR TO ID. 

SEC 

) ##**#•*#•**•*###•*•**■*#•*■*#*•* 

02CF 

0E01 

MVI 

C,ID.SEC 


JID SECTOR VALUE. 

02 D 1 

2E2i 

MVI 

L» BS.SEC 


JBIOS SECTOR VECTOR. 

02D3 

CD 03F8 

CALL 

BIOS 


5 BIOS TRANSFER CALL. 



j **#*•***< PERFORM WRITE SECTOR 

) 

02D6 

2E2A 

MVI 

L,BS.WRS 


JBIOS WRITE VECTOR. 

0208 

CD 03F8 

CALL 

BI US'* 


JBIOS TRANSFER CALL. 

02DB 

B7 

ORA 

A 


J SET CONDITION CODES. 

02 DC 

C8 

RZ 



JRETURN USER GOOD. 

02 DO 

21 06FF 

LX I 

H,MSG.NC 


J TRANSFER INCOMPLETE. 

02 E0 

CD 0281 

CALL 

MSG.OT 


JISSUE MESSAGE. 

02E3 

C9 

RET 











TDL ZSO CP/M DISK ASSEMBLER VERSION 
e'ORMAT - .JADE DOUBLE D 
-ORMAT TRACK DRIVER LINKAGE 


21 
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; FORMAT TRACK DRIVER * 

; #•»•*#■*#•*####**#**■»■•»•*«•##ft***#*#*•«• ***•**■»##«*■»•»■»■«•# 


; tt-s-sf-s-*#* < DENSITY ENTRIES )########**##■##*###*#*##*#### 


02E 4 

21 

0800 

FMT.SD: LX I 

H,FT3740 

;LOAD INJECTION ADDR. 

02E7 

C3 

02ED 

JMP 

ST.DMA 

5 GO SET DMA ADDR. 

02EA 

21 

0900 

FMT.DDs LXI 

H,FTJ48D 

5 LOAD INJECTION ADDR. 




5 xxxxxxx< SET 

INJECTION MODULE 

ADDRESS ) •it#*'*#*########”# 

02ED 

44 


ST.DMA: MOV 

B> H 

5 MOV HL TO BC. 

G2EE 

4D 


MOV 

Ci L 

5 MOV HL TO BC. 

02 EF 

2E: 

24 

MV I 

L» BS.DMA 

SBIOS DMA VECTOR. 

02F1 

CD 

03F8 

CALL 

BIOS 

;SET TRANSFER ADDRESS. 




; xxxxxxx ( SET 

TRACK ) xxxxxxxxxxxxxxxxxxxxxxxx-xxxxxxxxxx 

02F4 

3 A 

0404 

LDA 

TRK.NO 

» LOAD TRACK NMBR. 

02F7 

4F 


MOV 

C, A 

;PUT INTO C REGISTER. 

02FS 

2E 

IE 

MV I \ 

L,BS.TRK 

;BIOS TRACK VECTOR. 

02FA 

CD 

03F8 

CALL 

BIOS 

;SET TRACK NMBR. 




; ■ft*###*#! SET 

SECTOR TO FLAG ) xxxxxxxxxxxxxxxxxxxxxxxx x- 

02 FD 

3 A 

0406 

LDA 

F.FLAG 

5 LOAD DCM FLAG. 

0300 

4F 


MOV 

C? A 

;DCM FLAGS. 

0301 

2E: 

21 

MV I 

L ? B‘6. SEC 

> BIOS SECTOR VECTOR. 

0303 

CD 

03F8 

CALL 

BIOS 

SBIOS TRANSFER CALL. 




;#*•#*•***< PERFORM FORMAT TRACK 

) XX X X -X- -X- -X- X- XXXXXX X* X X X X XX X- X 

0306 

2E 

3 3 

MV I 

L»BS.FMT 

;BIOS WRITE VECTOR. 

0308 

CD 

03F8 

CALL 

BIOS 

? BIOS TRANSFER CALL. 

030B 

07 


ORA 

A 

5 SET CONDITION CODES. 

030C 

C8 


RZ 


?RETURN USER GOOD. 

030D 

jL 1 

06 FF 

LX I 

H,MSG.NC 

;TRANSFER INCOMPLETE. 

0310 

CD 

0281 

CALL 

MSG.OT 

5 ISSUE MESSAGE. 

0313 

C9 


RET 




■» **###*** # #*•■*•» -s- ■»■»*#* -s-s- ## ###■«•#*■«• ** -ft#** ■» * 
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TDL ZSO CP/M DISK ASSEMBLER VERSION 2.21 

FORMAT - JADE DOUBLE D 

SYSTEM TRACKS TRANSFER SUBROUTINE 


; SYSTEM TRACKS TRANSFER FUNCTION - ENTRY POINT * 

; a-#*#**###***-*##**####*##*#*####*#*-###-**-**#*#-**###*****' 


TRANSFER TRACK 0 ) a-*#**####*##*###***-#-**##*#* 


03 i 4 

21 0407 

TRNSFRs LX I 

H,TKO.SL 

? ADDR OF SECTOR LIST. 

0317 

2 3 

INX 

H 

JSKIP ID SECTOR. 

0318 

22 03FF 

SHLD 

SYS.WP 

5INIT WORK POINTER. 

03 IB 

OEOO 

MVI 

C,TRK.0 

;CBS TRACK NUMBER. 

03 ID 

2E1E 

MVI 

L„,BS. TRK 

5 BIOS TRACK VECTOR. 

03 IF 

CD 03F8 

CALL 

BIOS 

;BIOS TRANSFER CALL. 



; •»■•({■'«■#-a ( SET 

SECTOR IN BIOS 

) 

0322 

2A OS'FF 

..TKOS: LHLD 

SYS.WP 

j LOAD SECTOR POINTER. 

0325 

4E 

MOV 

C, M 

;SECTOR NMBR TO REG C. 

0326 

2E21 

MVI 

L, BS. SEC- 

;BIOS SETSEC VECTOR. 

0323 

CD 03F8 

CALL 

BIOS 

;BIOS TRANSFER CALL. 


?•»■*#*■*•*•«•( SET ADDRESS IN BIOS I************************ 


032B 

2A 

03FF 

LHLD 

SYS.WP 

;LOAD SECTER POINTER. 

032E 

A 7 


ANA 

A 

JCLEAR CARRY BIT. 

032F 

7E 


MOV 

A,M 

!GET SECTOR NUMBER. 

0330 

IF 


RAR 


?SECTOR NMBR / 2- 

0331 

57 


MOV 

D, A 

»HIGH LOAD OFFSET. 

0332 

3E00 

MVI 

Ai 0 

;ZERO A REGISTER. 

0334 

IF 


RAR 


5 CARRY TO BIT 7. 

0335 

5F 


MOV 

E> A 

5 LOW LOAD OFFSET. 

0336 

21 

0F80 

LX I 

H,TKO.LC 

? TRK 0 LOAD CONSTANT. 

0339 

19 


DAD 

D 

5HL = SEC LOAD ADDR. 

033A 

44 


MOV 

B,H 

?HL TO BC HIGH ORDER. 

033B 

4D 


MOV 

C,L 

?HL TO BC LOW ORDER. 

033C 

2E24 

MVI 

L, BS.DMA 

;BIOS ADDR VECTOR. 

033E 

CD 

03F8 

CALL 

BIOS 

!BIOS TRANSFER CALL. 




; *•*■**•***< SECTOR TRANSFER 

OPERATION )ft***************** 

0341 

3A 

0401 

LDA 

RW.OPV 

;LOAD OPERATION VECTOR. 

0344 

6F 


MOV 

L, A 

5 TRANSFER TO REG L. 

0345 

CD 

03F8 

CALL 

BIOS 

5 BIOS TRANSFER CALL. 

0348 

B 7 


ORA 

A 

5SET CONDITION CODES. 

0349 

02 

03A3 

JNZ 

..BLOW 

;SOMETHING WRONG! 




;***#***< INCREMENT NEXT S 

ECTOR > ****#**##*#*#**#■******# 

034C 

2 A 

03FF 

LHLD 

SYS.WP 

;LOAD SECTOR POINTER. 

034F 

7E 


MOV 

A. M 

;LOAD SECTOR NUMBER. 

0350 

FE16 

CPI 

016H 

;CHECK LAST STAGGERED. 

0352 

CA 

035C 

JZ 

..TRK1 

iIF DONE, DO TRK 1. 

0355 

J-.C* 


INX 

H 

?INCREMENT POINTER. 

0356 

22 

03FF 

SHLD 

SYS.WP 

;STORE IT AWAY. 

0359 

C3 

0322 

JMP 

..TKOS 

5 NEXT TRK 0 SECTOR. 










TDL 2S0 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 12 
FORMAT - JADE DOUBLE D " 
SYSTEM TRACKS TRANSFER SUBROUTINE 


; ( TRANSFER TRACK i ) 


0350 

21 1000 

..TRKls LX I 

H, TK1.LP 

;TRK 1 ADDR IN TPA. 

035F 

22 03FF 

SHLD 

SYS.WP 

UNIT WORK POINTER. 

0362 

3E0 1 

MVI 

A,TK1.FS 

5 FIRST SECTOR NUMBER. 

0364 

32 0405 

STA 

SEC.NO 

?SET CURRENT SECTOR. 

0367 

OEO 1 

MVI 

C,TRK.1 

;SET TRACK AT 1. 

0369 

2 E 1 E 

MVI 

L.BS.TRK 

5 BIOS TRACK VECTOR. 

036B 

CD 03F8 

CALL 

BIOS 

5 BIOS TRANSFER CALL. 



;-a-*■»#*#* ( SET 

SECTOR AND DMA IN 

BIOS ) ###**##*•#•&#■*•»■•»■*•«■ 

036E 

3A 0405 

. .TK1S: LDA 

SEC.NO 

5 LOAD CURRENT SECTOR. 

0371 

4F 

MOV 

C , A 

;TRANSFER TO REG C. 

0372 

2 E 21 

MVI 

L j BS.SEC 

5BI0S SECTOR VECTOR. 

0374 

CD 03F8 

CALL 

BIOS 

?BIOS TRANSFER CALL. 

0377 

2A 03FF 

LHLD 

SYS.WP 

;LOAD WORK POINTER. 

037A 

44 

MOV 

Bi H 

;MOVE HIGH ORDER. 

037B 

4D 

MOV 

C, L 

5 AND LOW ORDER. 

037C 

2E24 

MVI 

L, BE:. DMA 

5 BIOS ADDR VECTOR. 

037E 

CD 03F8 

CALL 

BIOS 

5 BIOS TRANSFER CALL. 



; ««««#*«( SECTOR TRANSFER OPERAT ION ) ***#■*#•**■####### 

0381 

3A 0401 

LDA 

RW.GPV 

;LOAD OPERATION VECTOR. 

0384 

6 F 

MOV 

L, A 

;TRANSFER TO REG L. 

0385 

CD 03F8 

CALL 

BIOS 

5 BIOS TRANSFER CALL. 

0 3 8 8 

B7 

ORA 

A 

5 SET CONDITION CODES. 

0389 

C 2 03A3 

JNZ 

..BLOW 

> SOMETHING WRONG! 



;*»*****<INCREMENT NEXT SECTOR 

) *##**#####***##«■#•&##*#* 

0380 

3A 0405 

LDA 

SEC.NO 

;GET CURRENT SECTOR. 

038F 

FE30 

CPI 

TK1.LS 

5 WAS THIS THE LAST? 

0391 

C 8 

RZ 


!IF DONE, GO HOME. 

0392 

3C 

INR 

A 

?INCREMENT COUNT. 

0393 

32 0405 

STA 

SEC.NO 

; STORE IT AWAY. 

0396 

2 A 03FF 

LHLD 

SYS.WP 

; LOAD WORK ADDRESS. 

0399 

11 0080 

LX I 

D, SEC.SZ 

5 GET SECTOR SIZE. 

0390 

19 

DAD 

D 

?ADD TO ADDRESS. 

039D 

22! 03FF 

SHLD 

SYS.WP 

;STORE NEW ADDRESS. 

OSAO 

C3 036E 

•JMP 

..TK1S 

5 ANOTHER TRK 1 SECTOR. 



:: # a-##( ENCOUNTERED DIFFICULTY ) *#*###**#* ***#**#*■«•■*■»• 

03 A 3 

21 06FF 

..BLOW: LX I 

H» MSG.NC 

?MESSAGE ADDRESS. 

03A6 

CD 0281 

CALL 

MSG.OT 

5 SEND MESSAGE. 

03 A 9 

C9 

RET 


;GO HOME. 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
FORMAT - JADE DOUBLE D 
SELECT DRIVE SUBROUTINE 


; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 
; SELECT DRIVE THRU BIOS * 
; aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

,*aaaaaaa< DISPLAY MESSAGE AND WAIT FOR DRIVE )aaaaaaaaa 


03 A A 

22 0402 

SEL.DR: 

SHLD 

MSG.SV 

;SAVE MESSAGE ADDRESS. 

03 AD 

2 A 0402 

.. . REPTs 

LHLD 

MSG.SV 

? LOAD MESSAGE ADDRESS. 

03B0 

CD 0281 


CALL 

MSG.OT 

5 ISSUE MESSAGE. 

0383 

CD 028F 


CALL 

CNS.IN 

5 GET DRIVE LETTER. 

0386 

FEOD 


CPI 

CR 

?CHECK FOR RESELECT. 

0388 

CA 03DE 


JZ 

. .EXIT 

5 IF CR GOTO EXIT AREA. 



S ##■#####( SEE 

IF DRIVE LETTER GOOD )aaaaaaaaaaaaaaaaaaa 

03 BB 

32 072D 


STA 

DR.LTR 

;DRIVE LETTER. 

038E 

32 0670 


STA 

LTR.SE 

?ILLG DRV LTTR. 

03C1 

D641 


SUI 

-A-' 

;GET NUMBER. 

0303 

Dm 03D5 


JC 

. . ILLG 

;ILLEGAL, REPEAT. 

0306 

FE04 


CPI 

04H 

5 DRIVE A THRU D? 

030o 

DA 03E0 


JC 

..NMBR 

5 GOOD NUMBER. 

03CB 

D620 


SUI 

'A • A " 

;CHECK LOWER CASE. 

03CD 

Dpi 03Db 


JC 

. . ILLG 

;ILLEGAL, REPEAT. 

03D0 

D604 


SUI 

04H 

,* LOWER A THRU D? 

03D2 

DA 03E0 


JC 

. .NMBR 

,LEGAL DRIVE. 



; aaaa a-** < EXIT 

TO RESELECT 

FUNCTION )#######*######&##& 

03D5 

21 066C 

. . ILLG: 

LX I 

H, MSG.SE 

;'SELECT ERROR' 

OSDS’ 

CD 0281 


CALL 

MSG.OT 

?ISSUE MESSAGE. 

03DB 

C3 03AD 


JMP 

. . REPT 

5 REPEAT SELECTION. 



? tt#*#*#*< exit 

TO RESELECT 

FUNCT I ON ) aa-a-a-a-a-a-a-a-a-aa-a-a-a-a-a-a- 

03 DE 

37 

..EXIT: 

SIC 


;SET CARRY. 

03DF 

C9 


RET 


;RETURN. 



; ##%&&&# ( VALID DRIVE NUMBER ) 

03E0 

4F 

. . NMBR: 

MOV 

C* A 

5 DRIVE NMBR TO C. 

03E1 

1 E 01 


MVI 

E,LOG.VC 

? LOG ON VECTOR. 

03E3 

2 E 1 B 


MVI 

L, BS.DSK 

5 BIOS SELCT DISK. 

03E5 

CD 03F8 


CALL 

BIOS 

5 BIOS TRANSFER CALL. 

08 E 8 

21 0716 


LX I 

H 7 MSG. XX 

!"TYPE CR WHEN READY" 

03EB 

CD 0281 


CALL 

MSG.OT 

. ? SEND MESSAGE• 

03EE 

CD 028F 


CALL 

CNS.IN 

;get console char. 

03F i 

FEOD 


CP I 

CR 

?CHECK IF CR. 

03 F 3 

C2 03AD 


JNZ 

. . REPT 

5 IF NOT 7 TRY AGAIN. 

03F6 

A 7 


ANA 

A 

,CLEAR CARRY. 

03F 7 

C9 


RET 


;RETURN CALLER. 


aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa, 1 ! aaaaaaaaaaaaaaa 









TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 14 

FORMAT - JADE DOUBLE D 

SMALL ROUTINES AND DATA AREAS 


; BIOS TRANSFER ROUTINE * 

; tt*##*##*####**####*#*#*-**#*#####**#*###*#*#*###*#**'**# 


03F3 3A 0002 

03FB 67 

03FC ES¬ 


DI OS: LDA 

MOV 
PCHL 


BS.PAG 
H» A 


5 GET HIGH ADDRESS. 
JSET IT IN H REG. 

? JUMP TO BIOS. 


03FD F7 
03FE FF 


; **#*#■*#■»*###*•*#*##**••*##•*•£■*•*#•&■*•*•&•**•&#**•*#*••»*#*#*•»**'»#•*# 
5 SOFTWARE TRAPS * 

; tt*##*#####*-***####*######*##-****#-*##*##***##****#*###* 

RST.6: RST 6 >EXIT FORMAT. 

RST.7: RST 7 ;EXIT FORMAT. 

? WORKING VARIABLES 

; «•###*#####*#####**#*#*#**##*####*it-####*###**#*###**### 


03FF 

0000 

SYS.WP: 

. WORD 

0 ?ADDRESS POINTER. 


0401 

00 

RW. OPV* 

. BYTE 

0 5READ OR WRITE VECTOR. 


0402 

0000 

MSG. SVs 

. WORD 

0 5 MESSAGE SAVE ADDRESS. 


0404 

00 

TRK.NO: 

. BYTE 

0 5 TRACK NUMBER HOLD. 


0405 

00 

SEC.NO: 

. BYTE 

0 ?SECTOR NUMBER HOLD. 


0406 

00 

F.FLAG: 

. BYTE 

0 5 FORMAT FLAG <DCM>. 







7 3 7 4U 

SECTOR 

TRANSLATION 





0407 

01070D131905 

TKO.SL: 

.BYTE 

01H,07H,ODH,13H , 19H,OSH 


04 OD 

OBI 11703090F 


. BYTE 

OBH , 11H,17H , OSH , 09H,OFH 


0413 

1502080E141A 


. BYTE 

15H , 0214 , OSH, OEH , 14H, 1 AH 


041 9 

06OC1218040A 


. BYTE 

06H.0CH*12H,18H>04H,OAH 


04 IF 

1016 


. BYTE 

10H,16H 



■&**■*####*#•&•*•*•*#**•*##•*•* ■fr#-*##***##*####*####*#*#***#*### 






TDL Z80 CP/M DISK ASSEMBLER VERSION 
FORMAT - JADE DOUBLE D 
IDENTITY SECTORS 


21 
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; ft***************************************************** 

5 JADE SINGLE DENSITY - IDENTITY SECTOR * 

5 -****«*###*###*tf#*##**#*****#**#*#*#^*******-****«- 


JADE IDENTIFICATION )************************ 


0421 

4A6164652044 

IDS.SD: 

.ASCII 

"JADE DD SINGLE 

DENSITY FORMAT " 



;#*•**•***• < DISK 

PARAMETER BLOCK • 

- CP/M 2.2 I****##*#*#** 

0441 



. LOC 

IDS.SD+20H 

?LOCATE CP/M BLOCK. 

0441 

001A 


. WORD 

26- 

5 SECTORS PER TRACK. 

0443 

03 


. BYTE 

o‘ 

;BLOCK SHIFT FACTOR. 

0444 

07 


.BYTE 

7 

;BLOCK MASK. 

0445 

00 


.BYTE 

0 

?NULL MASK. 

0446 

OOF 2 


. WORD 

242 

jdisk size - l. 

0448 

003F 


. WORD 

63 

;D1RECTORY MAX IMUM. 

044A 

CO 


. BYTE 

11000000B 

5 ALLOC 0. 

044B 

00 


. BYTE 

0 

?ALLOC 1. 

044C 

0010 


. WORD 

16 

;CHECK SIZE. 

044-E 

0002 


. WORD 

2 

;TRACK OFFSET. 



? ##■&&&# & < dcm 

DISK PARAMETERS ) *■**•***#■•*####*##&######## 

0451 



. LOC 

IDS.SD+30H 

;LOCATE DCM BLOCK. 

0451 

06 


.BYTE 

6 

;SECTOR STAGGER (TRNS). 

0452 

02 

SD. FL.G.S 

. BYTE, 

0000001OB 

5 DISKETTE FLAGS. 

04A1 



. LOC 

IDSL SD+S'EC. SZ 

5 EXTEND FULL SECTOR. 








TDL Z80 C 
FORMAT - 
IDENTITY 


04 A1 


04 Cl 
04C1 
04C3 
04C4 
04C5 
0.4C6 
04C8 
04CA 
04CB 
04CC 
04CE 


04 Di 
04D1 
04 D 2 

0521 


:P/M DISK ASSEMBLER VERSION 2.21 

•JADE DOUBLE D 

SECTORS 


PAGE 


5 JADE DOUBLE DENSITY ~ IDENTITY SECTOR * 

? ####*###*#**#####*# tt#*#**#*##***##*##*##*#*#*-#***## 

,- •****-*#•#< JADE IDENTIFICATION ) *****#*H***tt*#**#tt*tt##*tt# 


4A6164652044 

IDS.DD: .ASCII 

".JADE DD DOUBLE 

DENSITY FORMAT " 


;tt*#***#( DISK 

PARAMETER BLOCK - 

- CP/M 2.2 ) 


. LOp 

IDS.DD+20H 

;LOCATE CP/M BLOCK. 

0030 

. WORD 

4 w 

JSECTORS PER TRACK. 

04 

. BYTE 

4 

5 BLOCK SHIFT FACTOR. 

OF 

. BYTE 

oooo hub 

5 BLOCK MASK. 

01 

. BYTE 

1 

;NULL MASK. 

OOEO 

. WORD 

224 

$ DISK SIZE - 1. 

003F 

. WORD 

63 

5 DIRECTORY MAX 1 MUM. 

80 

. BYTE 

1OOOOOOOB 

;ALLOC 0. 

00 

. BYTE 

0 

;ALLOC 1. 

0010 

. WORD 

16 

;CHECK SIZE. 

0002 

. WORD 

2 

;TRACK OFFSET. 


; ( DCIT 

DISK PARAMETERS ) #****#*#####****#**###* 


. LOG 

IDS.DD+30H 

;LOCATE DCM BLOCK. 

06 

. BYTE 

6 

?SECTOR STAGGER (TRNS). 

06 

DD.FLG: .BYTE 

0000011OB 

?DISKETTE FLAGS. 


! . LOG 

IDS.DD+SEC.3Z 

;EXTEND TO FULL SIZE 




o 
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TDL ZSO CP/M DISK ASSEMBLER VERSION 2.21 
FORMAT - .JADE DOUBLE D 
TEXT MESSAGES 


; tf#*#*##*####*#*#*#*########**#**#***#*****-*****#####* * 

0521 MSG.BG: 5 CONSOLE SIGN ON * 


0521 

ODOA 

. ASC 

11 

CCRICLFI 

0523 

0 D 0 A444F 5 542 

. ASC 

ii 

CCRICLF3 •'DOUBLE D - FORMAT UTILITY-' 

053E 

0 D 0 A56455253 

. ASC 

ii 

C CRI C LF 3 •- VERS I ON 2. 2 " 

054C 

ODOA 

. ASC 

ii 

CCRICLFI 

054E 

0 D 0 A55736520 

. ASC 

IS 

C CR J C LF J " USE CTL-C FOR SYSTEM REBOOT.-' 




056C 


MSG. F 

L: 

5 DISPLAY FUNCTION SELECTIONS * 





056C 

ODOA 

. ASC 

I1 

[CRUELFI 

056E 

O D O A 2 m 2 h 2 A 2 A 

* ASC 

a 

E CR I E LF I"' ****«•# FUNCTIONS LI ST a#*#*** ■' 

05SF 

ODOA 

„ ASC 

11 

CCR3CLF3 

0591 

0 D 0 A 312 E2046 

. ASC 

11 

i: OR J L LF 1-1 u FORMAT DOUBLE OEMS I TV 8 n *' 

05 BO 

0 D 0 A322E2046 

. ASC 

ii 

CCRICLFI"2. FORMAT SINGLE DENSITY 8" •' 

05 CF 

0D0A332E2046 

. ASC 

II 

[CRICL..F3 "3. FORMAT STANDARD 3740 &" ' 

05EE 

ODOA342E2046 

a hbL 

II 

CCRICLFI"4. FORMAT SYSTEM TRACKS ONLY" 

0600 

0 D 0 A352E2052 

.ASCII 

CCRICLFI'5. READ SYSTEM TRACKS IMAGE - 

062F 

ODOA 36 2E2057 

. ASC 

ii 

CCR3CLF3 X 6. WRITE SYSTEM TRACKS IMAGE **' 

0651 

ODOA 

>< ASC 

ii 

CCRICLFI 

0653 

0 D 0 A454E5445 

„ ASC 

IS 

[ CR 3 C LF I " EN TER FUNCT I ON NUMBER: -' 



? *### •&&&&#&#&ft###################### ?<■■#**########•»■•&# 

066C 


MSG. S 

b» 

?SELECTION ERROR , * 




ft#######*###################*# *:■*#•&*##**£ 

0660 

ODOAODOA 

. ASC 

ii 

CCRICLFICCRICLFI 

0670 

20 

LTR. S 

E: 

.. BYTE •" •" 

0671 

206 97 3204E 4 F 

■ ASC 

IS 

•- IS NOT A VALID SELECTION 


; #***######*###*####*###*###«•*#**####«•*#####«•********** 








TDL 280 CP/M DISK ASSEMBLER VERSION 2.21 
-■OR MAT - .JADE DOUBLE D 
IEXT MESSAGES 


PAGE IS 



; #**##■«•*•*#■*#*###•*•*■**•»#**•**#■***##*#*#*#**•**•*#••*■»•■«••»*#■»•■#•■#•#■•* 

06SB MSG.FDs 5 FORMAT ON DISK DRIVE * 

; *##«•#*«■«•#**#**###**«■#***##«■*#«■##*#*#*#«•##«•**#«•*#«■**#*# 

06 SB ODOAODOA .ASCII CCR3 L"LF3 CCR3 CLF3 

06SF 577269746520 .ASCIS -WRITE FORMAT ON DRIVE <CR TO RESELECT): ' 

; *■*•**#■»#■&*#*#**•&■*##*##•&##■*#•&•**■*•&##•»#•*■»•*#■«•■»•##■»■•&•»■»•■«■■«•■«••#••«•■#•«• 

06B7 MSO.RS: ;READ SYSTEM ON DRIVE * 

? ## ###•&•&#######################################*&•£■ 

06B7 ODOAODOA .ASC11 CCR3 L LF3 l CR3CLF3 

06BB 524541442053 .ASCIS "READ SYSTEM FROM DRIVE: *“ 

06D3 MSG M WS: ?WRITE SYSTEM ON DRIVE * 

06Do ODOAODOA .ASCII CCR3CLF3CCR3CLF3 

06D7 575249544520 .ASCIS "WRITE SYSTEM TO DRIVE (CR TO RESELECT): " 

; #*##########*###*#*###jf. x 

06FF MSG.NC: ? TRANSFER INCOMPLETE * ^ 


06 FF 

ODOAODOA 

.ASCII 

C CR 3 C LF 3 C CR 3 L LF 3 

0703 

5452414E5346 

.ASCIS 

- TRANSFER INCOMPLETE -' 

07 16 

0716 

ODOAODOA 

MSG.XXS ;TYPE CR WHEN DRIVE READY * 

5 tt#-*####*###*#*####-*###*#**##*#***##*##*#*'*#-*#-*#-*-**#### 

.ASC11 L CR 3 C LF 3 C CR 3 E LF 3 

071A 

547970652043 

.ASCII 

-TYPE CR WHEN DRIVE -' 

072D 

20 

DR.LTR: 

.BYTE -' -' 

072E 

205245414459 

.ASCIS 

-' READY. - 





i 
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TOL Z80 
r OPMA I 


CP/M DESK A 
•JADE I n. il IDE. E 


>SEMBL„ER 
D 


VERSION 2.21 


i n.jec rti im module 


MACRO DEFINE IIONS 


; FORMAT - TITLE BLOCK AND PAGE ALIGNMENT * 


.DEFINE 

FORMAT CNAME3 

= C 

NAME 

(.!OFFH)+1 

5SET NEXT PAGE BOUNDRY 

. LOC 

NAME 

;SET LOC TO NEXT PAGE. 

OFFSET = 

FMT.EA-NAME 

?DETERMINE ADDR OFFSET 

. Z 80 


?NOW USE Z30 CODE. 

.ASCI I 

• FORMAT! - 3 

;INCLUDE HEADER! 


; tt##*##*****##**#'**###*###*#**'*#*-##-#-'*#'*##*'***-*#*'*#**-#** 

5 DENSITY - DECLARE TYPE * 


.DEFINE 

DENSITY [TYPE 3 = C 

. IFIDN 

C TYPE 3 C SINGLE 3 > L 

.ASCII 

•** c* *•* 

.EXIT3 


. IFIDN 

C TYPE 3 C DOUBLE 3 > L 

.ASCII 

'D' 

. EX IT 3 


. ERROR 

-INVALID DENSITY"3 


? SECTORS - SPECIFY SEQUENCE AND NUMBER OF SECTORS * 


.DEFINE SECTORS CLIST»NMBR 3 = C 

LX I HiLIST+OFFSET 5 SECTOR SEQUENCE ADDR. 

MVI E,NMBR3 ;NUMBER OF SECTORS. 

; tt##*####**######*####***#####*-**#-*#*-**-*#-**-*-*##***-###-** 

? BLOCK - GENERATE A BLOCK OF CONSTANTS * 


.DEFINE 

BLOCK 

NMBR - 

COUNT 

MVI 

BiNMBR 

7.REPT: IN 

XP.DSH 

MVI 

AiBYTE 

XRA 

c 

OUT 

WD.DTA 

DJNZ 

7.REPT3 


INT,BYTE,*/.REPT3 = C 

;SET EQUAL FOR NOW. 
5LOAD NMBR OF BYTES. 
iWAIT FOR DATA REQ. 

;load byte value. 

;INVERT (1791-01). 

;WRITE DATA PORT. 

;REPEAT FOR COUNT. 
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TDL Z80 CP/M DISK ASSEMBLER VERSION 2. 

FORMAT - JADE DOUBLE D 

INJECTION MODULE - MACRO DEFINITIONS 


; #■***#***#*****#*****#**#***#**#**•#***#*#**■**•*##■#•#**•*** 
? REPEAT - REPEAT FORMAT SECTION FOR EACH SECTOR * 

; 

.DEFINE REPEAT CLOCATION3 * L 

DCR E 5 DEC NMBR SECTORS LEFT. 

JNZ LOCATION+OFFSET 3 

; •&***#*•*#*#**##*•*#•&*#*#■*•*****•*#*•*•*•**»#**■&#*•*•*■*•#*#■•#•*■•»•■#•■»•# 
; ENDING - RECORD NMBR OF TRAILING BYTES WRITTEN * 


.DEFINE 

ENDING CBYTEj 

XREF'T 3 » C 

LX I 

H 7 O 

;COUNT OF ZERO. 

%REPT« IN 

XP.DSH 

JWAIT FOR REQ. 

MV I 

A,BYTE 

5LOAD CONSTANT. 

XRA 

C 

5 INVERT <1791-01) 

OUT 

WD.DTA 

5 WRITE TO PORT. 

INX 

H 

!INCREMENT COUNT. 

JMP 

XREF'T+OFFSET 

;CONTINUE.3 


21 

o 
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TDL 280 CP/M DISK ASSEMBLER VERSION 2.21 

FORMAT - .JADE DOUBLE D 

INJECTION MODULE - MACRO DEFINITIONS 


; WRITE - WRITE SPECIFIC FORMAT BYTES * 

; #***#*-**#*tt*###^***####**#**#*#**##*####*#********#*** 

.DEFINE WRITE CTYF*E,VALU] = C 
;*■*••#••»• *•»*( ID ADDRESS MARK )ft#######****####***#***###** 
. IFI ON C TYPE KID. MARK 1 , C 


IN 

XP.DSH 

5WAIT FOR DATA REQ. 

MV I 

A , OFEH 

;ID ADDR MARK. 

XRA 

C 

5 INVERT (1791-01). 

OUT 

WD.DTA 

?WRITE DATA PORT. 

.EXIT! 


;TERMINATE MACRO 

;•*«•*# *** ( INDEX 

MARK ) tt###*#**##*###*##*##***##***##*#-* 

.IFIDN 

LTYPE]LINDEX 

.MARK], C 

IN 

XP.DSH 

?WAIT FOR DATA REQ. 

MV I 

A,OFCH 

;INDEX MARK. 

XRA 

C 

5 INVERT (1791-01). 

OUT 

WD.DTA 

;WRITE DATA PORT. 

.EXIT] 


;TERMINATE MACRO 

;******#( DATA ADDRESS MARK 


.IFIDN 

[TYPEKDATA. 

MARK], C 

IN 

XP.DSH 

;WAIT FOR DATA REQ. 

MV I 

A,OFBH 

5DATA ADDR MARK. 

XRA 

c 

?INVERT (1791-01). 

OUT 

WD.DTA 

;WRITE DATA PORT. 

.EXIT] 


;TERMINATE MACRO 


.IFIDN 

C TYPE]C CRC]» 

C 

IN 

XP.DSH 

5WAIT FOR DATA REQ. 

MVI 

A,0F7H 

,* GENERATE CRC. 

XRA 

c 

5 INVERT (1791-01). 

OUT 

WD.DTA 

;WRITE DATA PORT. 

.EXIT] 


? TERMINATE MACRO 

;*#*****( EXPLIC 

■ IT BYTE VALUE ) #*###«-*#***###»*##***#** 

.IFIDN 

C TYPE KBYTE] 

, C 

IN 

XP.DSH 

;WAIT FOR DATA REQ. 

MVI 

A,VALU 

;EXPLICIT VALUE. 

XRA 

c 

;INVERT (1791-01). 

OUT 

WD.DTA 

;WRITE DATA PORT. 

.EXIT] 



; *#*•*•*#* ( TRACK 

NUMBER ) *###&##*###*#*#####■*########### 

.IFIDN 

CTYPE]CTRACK 

.NO], C 

IN 

XP.DSH 

;WA1T FOR REQUEST. 



TDL Z80 CP/M DISK ASSEMBLER VERSION 2.21 

FORMAT - JADE DOUBLE D 

INJECTION MODULE - MACRO DEFINITIONS 
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IN WD.TRK 

OUT WO.DTA 

.EXIT! 


;GET TRACK NMBR. 

5 WRITE DATA PORT. 


;*******( SECTOR NUMBER ) ****************************** 


.IFIDN 

CTYPE![SECTOR.NO!, L 

IN 

XP.DSH 

5WAIT FOR REQUEST. 

MOV 

A, M 

;SET SECTOR NUMBR. 

XRA 

C 

;INVERT (1791-01). 

OUT 

WD.DTA 

;WRITE DATA PORT. 

INX 

H 

; INC SEC-NMBR F'NTR. 

.EXIT 


,TERMINATE MACRO! 

•< SIDE 

NUMBER )******************************** 

.IFIDN 

[TYPE![SIDE.NO!, 

C 

IN 

XP.DSH 

5WAIT FOR REQUEST. 

MV I 

A, 0 

jSET SIDE NUMBER. 

XRA 

C 

5 INVERT (1791-01) . 

OUT 

WD.DTA 

»WRITE DATA PORT. 

.EXIT 


?TERMINATE MACRO! 


;*******( SECTOR SIZE CODE )*************************** 


.IFIDN 

CTYPEICSECTOR.SIZE!, C 

SEC.CD 

= OFFH 

;DECLARE BLANK. 

.IFIDN 

C VALU!C128!, 

tSEC.CD = OOOHI 

.IFIDN 

C VALU!C 256!, 

CSEC.CD = 001H! 

.IFIDN 

C VALU!C 512!, 

CSEC.CD = 002H! 

.IFIDN 

I! VALU !C 1024!, 

CSEC.CD = 003H! 

. IFE 

(SEC.CD—OFFH), 

C 

.ERROR 

-INVALID SECTOR 

SIZE-! 

IN 

XP.DSH 

;WAIT FOR DATA REQ 

MV I 

A,SEC.CD 

5 LOAD SIZE CODE. 

XRA 

C 

;INVERT (1791-01). 

OUT 

WD.DTA 

;WRITE DATA PORT. 

.EXIT 


5 TERMINATE MACRO! 


;*******( ILLEGAL EXPANSION )************************** 
.ERROR -ILLEGAL EXPANSION'! 




5 ****************■*•»■**#****•*■«••»•#■»•**#********************* 



T'UL. 2SO CP/M DISK ASSEMBLER VERSION 2.2 
FORMAT - JADE DOUBLE D 
INJECTION MODULE FT3740 


0800 

464F524D4154 


FORMAT 

0807 

53 


DENSITY 

0808 

21 17B5 


SECTORS 

osoD 

0628 

BG3740:1 

BLOCK 

0818 

0606 


BLOCK 

0823 

DB80 


WRITE 

082A 

061A 

) 

BLOCK 

0835 

0606 

RP3740M 

BLOCK 

0840 

DB80 


WRITE 

0847 

DBS'O 


WRITE 

0840 

DB80 


WRITE 

0854 

DB80 


WRITE 

085B 

DB80 


WRITE 

0862 

DB80 


WRITE 

0869 

060B 

5 

BLOCK 

0874 

0606 

y 

BLOCK 

087F 

OB 80 


WRITE 

0886 

0680 

i 

BLOCK 

0891 

DB80 


WRITE 

0898 

061B 

% 

BLOCK 

08 A 3 

10 


REPEAT 

08 A 7 

21 0000 


ENDING 

08B5 

010203040506 

883740s 

. BYTE 

08BF 

OBOCODOEOF10 


. BYTE 

08 C 9 

15161718191A 


. BYTE 
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FT3740 
SINGLE 
SS3740,26 v 

40 7 ONES 
6,ZEROS 
INDEX.MARK 
26,ONES 
6,ZEROS 
ID.MARK 
TRACK.NO 
SIDE.NO 
SECTOR.NO 
SECTOR.SIZE,128 
CRC 

i1,ONES 
6,ZEROS 
DATA.MARK 
128,0E5H 
CRC 

27,ONES 
RP3740 

ONES 

It 2 7 6 7 4 7 5 7 £• 7 7 7 o' 7 V 7 1 O 

1 1 7 12*7 137 147 157 16» 177 IS 7 1 9 7 20 
217 22*7 23 7 24 7 25 7 26 
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FORMAT - .JADE DOUBLE D 
INJECTION MODULE FTJ48D 
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o 


0900 

464F524D4154 

FORMAT 

FTJ48D 


0907 

44 

DENSITY 

DOUBLE 


0908 

21 17AE 

SECTORS 

SSJ48D,48 


090D 

0650 

BUU4b'Ei « ^ BLULK 

80 , 04EH ^ 

—\ BldcE. 

0918 

060C 

RPJ48D: V.BLOCK 

12,ZEROS 

1 &\ 0CteL 

0923 

0603 

3BLOCK 

3,0F5H 

l U | f> \ 

092E 

DB80 

WRITE 

ID.MARK 

| \ \ fc- 

0935 

0B80 

WRITE 

TRACK.NO 

^ tSLCJcIc 

093B 

DB80 

WRITE 

SIDE.NO 


0942 

OB 80 

WRITE 

SECTOR.NO 


0949 

DB80 

WRITE 

SECTOR.SIZE, 

128 

0950 

DB80 

WRITE 

CRC 


0957 

0616 

•A BLOCK 

22,04EH 


0962 

06 OC 

^ BLOCK 

12,ZEROS 


0960 

0603 

V BLOCK 

3,0F5H 


0973 

DB80 

WRITE 

DATA.MARK 


097F 

0680 

1 BLOCK 

128,0E5H 


098A 

DB80 

WRITE 

CRC 


0991 

0616 

% BLOCK 

22,04EH 


0990 

ID 

REPEAT 

RP.J48D 


09A0 

21 0000 

ENDING 

ONES 


09AE 

0105090D1115 

SSJ48D! .BYTE 

1, 5, 9,13, 

17,21 

09B4 

191D21252920 

. BYTE 

25,29,33,37, 

41,45 

095* A 

02060A0E1216 

. BYTE 

2, 6,10,14, 

18, 22 

0900 

1A1E22262A2E 

. BYTE 

26,30,34,38, 

42,46 

0906 

03070B0F1317 

. BYTE 

3, 7,11,15, 

19,23 

0900 

1B1F23272B2F 

. BYTE 

27,31,35,39, 

43,47 

0902 

04080C101418 

. BYTE 

4, 8,12,16, 

20,24 

0908 

1C2024282C30 

. BYTE 

28,32,36,40, 

44,48 


\Z, J ZrEk&S 
3 j0F 3 H 

&0 j Hs H 
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FORMAT - JADE DOUBLE D 

+++++ symbol table +++++ 


BDOS 

0005 

BEGIN 

0100 

BG3740 

080D 

BGJ48D 

090D 

BIOS¬ 

03F8 

BS.DMA 

0024 

BS.DSK 

00 IB 

BS.FMT 

0033 

ES. PAG 

0002 

BS.RDS 

0027 

BS.SEC 

0021 

BS.TRK 

00 IE 

BS.URS 

002A 

CNS.IN 

028F 

CNS.OT 

029C 

CNS.RD 

0001 

CNS.WR 

0002 

CNTL.C 

0003 

CR 

OOOD 

DD.FLG 

04D2 

DR.LTR 

072D 

FMT.DD 

02EA 

FMT.EA 

1700 

FMT.SD 

02E4 

FT3740 

0800 

FTJ48D 

0900 

FUN. 1 

017E 

FUN. 2 

01E3 

FUN. 3 

01 BB 

FUN. 4 

022B 

FUN. 5 

0259 

FUN. 6 

026D 

fun.bg 

0141 

F.FLAG 

0406 

HXB.OT 

02AA 

HXN. CH¬ 

02B3 

hxw. or 

02 A 5 

IDS.DD 

04 A1 

IDS.SD 

0421 

ID. SEC 

0001 

I NIT 

0138 

LF 

OOOA 

LOG.VC 

0001 

LTR.SE 

0670 

MSG.BG 

0521 

MSG.FD 

06S'E< 

MSG.FL 

056C 

MSG.NC 

06FF 

MSG.or 

0281 

MSG.RS 

06B7 

MSG.SE 

066C 

MSG.SV 

0402 

MSG.MS 

06 D 3 

MSG.XX 

0716 

NMBR 

0016 

OFFSET 

OEOO 

ONES 

OOFF 

REBOOT 

0000 

RP3740 

0835 

RPJ48D 

0918 

RST. 6 

03FD 

RST. 7 

03FE 

RW.OPV 

0401 

SD.FLG 

0452 

SEC.CD 

0000 

SEC.NO 

0405 

SEC.SZ 

0080 

SEL.DR 

03AA 

SS3740 

08B5 

SSJ48D 

09AE 

ST.DMA 

02ED 

SYS.WP 

03FF 

TKO.FS 

0001 

TKO.LC 

OF 80 

TKO.LP 

1000 

TKO.LS 

001A 

TKO.NS 

001A 

TKO.SL 

0407 

TKO.SZ 

ODOO 

TK1.F3 

0001 

TK1.LP 

1DOO 

TK1.LS 

0030 

TP A 

0100 

TRK.O 

0000 

TRK. 1 

0001 

TRK. 2 

0002 

TRK.76 

004C 

TRK.NO 

0404 

TRNS'FR 

0314 

WD.DTA 

0007 

WD.TRK 

0005 

WRT.ID 

02C1 

XF*. DSH 

0080 

ZEROS 

0000 








••■'CB: ■ 

B>DDT 

DDT VERS 1.4. 

-F100i1000»00 

-IFORMAT. HEX The following is the hex code generated 

-R , * 

NEXT PC by the FORMAT INJECTION MODULES. 


09DE 0000 
-0800,8FF 
0800 46 4F 


4D 

41 

54 

21 

cr 

JO 

/21- 

B5 

17 

IE 

1A 

06 

28 

DB 

FORMAT!S!. 

0810 

SO 

3E 

FF 

A 9 

D3 

07 

10 

F7 

06 

06 

DB 

80 

3E 

00 

A9 

D3 

ft a.** ft ft 

a * m m » m m m «.•** a 

0820 

07 

10 

F7 

DB 

80 

3E 

FC 

A 9 

,D3 

07 

06 

1A 

DB 

80 

3E 

FF 

ft a ft n 


0830 

A 9: 

D3 

07 

10 

F7 

06 

06 

DB 

80 

3E 

00 

A 9 

D3 

07 

10 

F7 

m m m * 

mmMmmSmm** 

0840 

DB 

80 

3E 

FE 

A 9 

D3 

07 

DB 

80 

DB 

05 

D3 

07 

DB 

80 

3E 

. . >. 

mmmmmnmmmm 

0850 

00 

A9 

03 

07 

DB 

80 

7E 

A 9 

D8 

07 

2 3 

DB 

80 

3E 

00 

A9 

m m m * 


0860 

D3 

07 

DB 

80 

3E 

F7 

A9 

D3 

07 

06 

OB 

DB 

80 

3E 

FF 

A 9 

m n n m 

«•* m m m m a a a a -•* 

0870 

03 

07 

10 

F7 

06 

06 

DB 

80 

3E 

00 

A 9 

D3 

07 

10 

F7 

DB 

n m m m 

aaaa>*'aaaaa 

0880 

80 

E:. 

FB 

A 9 

D3 

07 

06 

80 

DB 

80 

3E 

E5 

A9 

D3 

07 

10 

-v 

• y m m 


0890 

F7 

DB 

80 

3E 

F7 

A 9 

D3 

07 

06 

IB 

DB 

80 

3E 

FF 

A 9 

D3 

_ > 

mmmmmmmm »•"" a 

08 AO 

07 

10 

F7 

ID 

02 

35 

17 

21 

00 

00 

DB 

80 

3E 

FF 

A 9 

D3 

HUMS 

a a ! a a a a »•** a 

08B0 

07 

2 • 

C 3 

A A 

17 

01 

02 

03 

04 

05 

06 

07 

08 

09 

OA 

OB 

.#. . 

ftftftftftftftfttttt 

osco 

OC 

OD 

of: 

OF 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

1A 

00 

a « ft a 

• ftftftftftftftftft 

0800 

00 

00 

00 

'00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 


ftftftftftftftftftft 

08E0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

-• m m • 

aaaaaaaaaa 

08F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

• « » «i 

ftftftftftftftftftft 

-D900,9FF 
0900 46 4F 

52 

4D 

41 

54 

21 

44 

21 

AE 

17 

IE 

30 

06 

50 

DB 

FORMAT !D!.. . 0. 

0910 

80 

3E 

4E 

A9 

03 

07 

10 

F7 

06 

OC 

DB 

80 

3E 

00 

A9 

D3 

. >N. 

ftftMftftftftftaXff 

0920 

07 

10 

F7 

06 

03 

DB 

80 

3E 

F5 

A 9 

D3 

07 

10 

F7 

DB 

80 

m m mm 


0930 

3E 

FE 

A 9 

D3 

07 

DB 

80 

DB 

05 

D3 

07 

DB 

80 

3 E 

00 

A9 

«•*' m. m m 

.“> 

0940 

03 

07 

DB 

80 

7E 

A9 

D3 

07 

23 

DB 

80 

•~'j £ 

00 

A9 

D3 

07 

ft ft ft ft 

. .#. .>. . 

0950 

DB 

SO 

3E 

F7 

A 9 

D3 

07 

06 

16 

DB 

80 

3E 

4E 

A 9 

D3 

07 

« « -• «i 


0960 

10 

F7 

06 

OC 

DB 

8 U 

3E 

00 

A9 

D3 

07 

10 

F7 

06 

03 

DB 

m a m m 


0970 

80 

3E 

F5 

A 9 

03 

07 

10 

F7 

DB 

80 

3E 

FB 

A 9 

D3 

07 

06 

• >. . 

a a a a a a >. a a 

0980 

80 

DB 

80 

3E 

E5 

A 9 

D3 

07 

10 

F7 

DB 

80 

3E 

F7 

A9 

D3 

ft ft ft •#** 


0990 

07 

06 

16 

DB 

80 

3E 

4E 

A 9 

D3 

07 

10 

F7 

ID 

C2 

18 

17 

m m m m 

. >N . 

09 AO 

21 

00 

00 

DB 

80 

3E 

FF 

A 9 

D3 

07 


ij:-i 

A3 

17 

01 

05 

i 

• a • ft 

a a a a a *H‘ a a a 

09BO 

09 

OD 

11 

15 

19 

ID 

21 

25 

29 

2D 

02 

06 

OA 

OE 

12 

16 

a a ft « 

1'/)- 

a a . f m t aaaa 

09C0 

1A 

IE 

22 

2! 6 

2 A 

2E 

03 

07 

OB 

OF 

13 

17 

IB 

IF 

Am 

27 

. . *•?•<*.. 

09D0 

2B 

2F 

04 

08 

OC 

10 

14 

18 

1C 

20 

24 

28 

2C 

30 

00 

00 

- 


09E0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

a « « a 


09F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

a m • a 
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CROSEMCO Z83 Macro Assembler version 83.*27 
SISK CONTROLLER MODULE (DCM5 


Pace 888 


8802 LIST NOCDND 


2804 i 

0185 ; The Disk Controller Module contains the firmware for the Jade 
0886 ; Double S Disk controller board. 

3887 j 

8008 iWMWMWWWHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHMHHHHHHHHHHIHHHHHHHHHHHHHHt 
@389 ; 

8818 5 The disk controller Module (DO*!) resides internal to the Jade Double B 
881! ;■ Disk Controller board. This aronras provides a facility to read/write 
3812 ; diskette sectors & format diskette tracks (in single £ double density). 

8813 5 This Module sets the parameters for each drive during the "LOS-ON” 

8814 | operation. The FORMAT program (not in this module) writes an ident- 

8815 | ification sector ( 8 , 8 ) which provides the needed information. If this 

8816 ; identity sector'is not present on the diskette, it is assumed to be a 

8817 ; standard S" IBM 3748 format. This program contains a 6 word timing block 
W18 | which should be patched to Batch the user’s disk drives. This has normally 

8819 ; been set for Shugart SAB88/881 drives. 

3828 j 

0022 j 

8@23 : REVISION STATUS: 

8824 : 

8025 ; 1.0 - 1 PUS 82 SRH 

8826 : Initial release 

8827 j 

8828 | 1,1 - SRH 

3829 | Fix bug causing code to crash after predictable number of ware boots. 

8038 j ft Ml was being Made without a return in the login function. 

883! ; 

8832 : 1.2 - 1 fliiS 82 SRH 

8833 : ADDED REGAL FEATURE TO RECOVER FROM THE INSTANCE WHERE THE 

8834 : HEAD 13 OUTSIDE TRACK 8 BUT JHE SENSOR IS STILL SiVINS 

8835 5 THE TRACK 8 SIBNAL IF TRK i SENSE IS TRUE ON ENTRY, THE 

6836 j HEAD IS STEPPED IN SEVERAL TRACKS, THEN A T RK 8 SEEK IS 

1837 i PERFORMED. 

8832 : 

8@39 ; 1.3 - 31 AUS -S3 SRH 

8840 j Add sector de-blocking algorithms for 25S byte sectors. Remove unused 
8041 ; code 4 vars. Optimize code. 

8842 j 


(3133) 

8843 

VER5N 

ESU 

! 13* 


1044 

a 



(8888) 

8846 

J 'KWTWftt 

FALSE 

TXTTlrxl 

EGO 

2 

(FFFF) 

@847 

TRUE 

sou 

MOT FALSE 

(8088) 

6048 

LSTINC 

ESU 

FALSE 
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CRQNEMCQ 280 Macro flssatbier version 83.*7 

DISK CONTROLLER MODULE (DON) 

nmm definitions 


1237 

{$©80} @238 CWNRT! ESU 100108888 

(88805 8233 SECS!2 ESU 128 

?N0 RETRYS {=13 
{SIZE OF lOGICIL 


I2;43:41 


SECTORS 


12:43:41 


Pace 0883 


CRffiEfCQ 288 Macro Assembler version §3.87 
DISK CONTROLLER MODULE (DCS) 
mm FIRMWARE 


8242 

@243 

1244 

8245 

8246 

8247 

8248 

8249 
0258 
8251 
0252 

8253 

8254 
0255 

8256 

8257 

8258 

8259 
8268 
8261 
8262 

8263 

8264 

8265 


’ REGISTER LEASE; 

: h, 8= SCRATCH 

* C= I79X INVERSION CONSTANT 

DE= USED FOR FLAG, SECTOR BY R/H SECTOR SUBS 
; HL= PTR TO SATA YFER BY m SECTOR SilBR 
j IX= DISK PARAMETER BLOCK PTR 
IY= 173X mi RETURN ADDRESS 
: AF’= R/U FLASS 

\ BC% BE ! , HL 1 - mi USED 


: THE FOLLOWING AREA IS THE INITIAL START JUMP TABLE. 

: THE 1ST JUMP IS EXECUTED WHEN THE ONBOARD Z38 IS RESET, 
j THE SECOND JUMP IS THE DCK ENTRY FROM A BOOTSTRAP LOADER. 

; THIS ENTRY ASSUMES BCM HAS BEEN LOADED INTO BD BANK 1 BY TH 
; LOADER ROUTINE, 



18888) 

@266 

ORS 

0 




8267 




mm 

C3IB80 

R 8268 

JP 

CLEAR 

1RESET t RE-INITIALIZE 2-30 REGS 



grass 




8883 

C38887 

8278 

JP 

MTB+BRNKL 

|INIT - BOOTSTRAPPED 

@806 

(@802) 

0271 

DS 

2 



8272 

8273 

8274 
@275 
8276 
@277 
8278 
0279 
8288 
8281 
8282 


I THIS SUBROUTINE IS THE ENTRY POINT FOR THE DISK CONTROLLER 
: TWINS MODULE. THIS MODULE PROVIDES DELAYS WHICH ARE 
5 MULTIPLES OF 188 us. THE CONTENTS OF DE DETERMINES THE TOTAL 
? PERIOD. (DELfiY=(DE)*l@@ us). 


RST8: 


@808 

8619 

8283 

88IA 

1@FE 

@284 

808C 

C31308 

R 0285 



0286 

808F 

861C 

8287 

@811 

10FE 

8283 



@289 

8813 

IB 

8298 

8814 

7A 

8291 

i@l5 

B3 

8292 

0816 

18 

§293 

8017 

88 

8294 

mis 

28F5 

8295 



LD 

DJNZ 

8.TMRFC 

$ 


JP 

TICKE 

TICXR: 

LD 

DJNZ 

B,TMRNC 

$ 

TICKE; 

DEC 

DE 


LD 

M 


OR 

E 


NOP 



NOP 



JR 

NZ,TICKS 


;SET CONSTANT 
:SOTO TICK ENTRY 
5SET NORMAL CONSTANT 

;COUNT -1 

i IF COUNT NOT 8 THEN REPEAT 






CROMEMCO Z88 Macro Assembler version 03. §7 12:43:41 

DISK CONTROLLER MODULE (DOM) 
mm FIRMWARE 


SIR C9 


S01B 312505 
tffiiE CD1481 
0821 IBID 


8823 (88851 
0828 C37882 


W2B (8805) 

1830 CD1401 
8833 3E78 
8835 323E88 


02 % 

8297 

8298 
0299 


RET 


;ELSE RETUR 


0381 

8382 

0j8u 

0304 

0.305 


INITIALIZATION FROM RESET VECTOR 


CLEAR: LD SP,STACK 

CALL INIT 

JR SLEEP 


030 ( 
8308 
8389 
@310 
0311 
8312 
03i3 
8314 
@315 
0316 
@317 
031B 
0319 


ENTRY VECTOR TO READ SECTOR 
USES RST 48 VECTOR 


OS 

RST48: JP 


2SB - $ 
RDSEC 


1321 

@322 

0323 

@327 

8328 

8329 
833@ 

8331 

8332 
0333 
@334 
0335 

8336 

8337 

8338 
@339 


TEMPORARY INIT USED ONLY ONCE 


DS (38H - 8) - $ jPOSITION CODE 

RST38A; CALL INIT 

LD A.XCUTE ;MODIFY CALL VECTOR 

LD (HRVEC + l),fl 


; MASKABLE INTERRUPT ROUTINE - EXECUTED WHEN RESTARTING THE 
j Z8@ FROM A HALT. THE FUNCTIONS ARE; RESET THE DD INT RES 
; FLOP. PUT THE INTERRUPTED ADDR IN DE I JUMP TO CMB HANDLER. 


@838 

DB2@ 

@348 

8341 

TSTACK: 

RST38: 

IN 

A,XPIRR 

:RESET INT REQ 

i03A 

312585 

0342 


LD 

SP,STACK 

:SET UP STACK 

?03D 

CD3800 

6343 

HRVEC; 

CALL 

RST38A 

{MODIFIED BY RST38A TO CALL XCUTE 


@344 

8345 

@346 

8347 

@348 

8349 

8350 


; END OF SEQUENCE HALT - DURING THIS TIME. THE HOST SYSTEM 
? CAN SWITCH THE CONTROLLER MEMORY INTO THE S!@@ BUS FOR 

5 STATUS CHECK, SETTING COMMAND BLOCK, 4 SECTOR DATA XFERS, 

£ 

% 


@4@ FB 


@352 SLEEP; El 


:SET ALARM 


Page 88@4 
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CR0ME1CQ 28S Macro ftaseiblsr version 03.07 
DISK CONTROLLER MODULE (DCM5 
MAIN FIRMWRRE 


341 78 


1042 


8047 


3faFF 


0353 

0^o4 

§355 

0356 

0357 

®358 

0353 

0360 

8361 

0362 

8363 

8364 
0365 
2366 

2uS / 

2368 
8369 
8378 
0371 
8 ^ / £ 
8373 
2374 
8375 
2376 
§377 
8378 


HALT 


: GO TO SLEEP 


READ ADDRESS COMMAND 


ADDS: 


;I€T IMPLEMENTED 


SPARE COMMAND 


SPAR; LD HL,CBSTS 

iD ^Hl.) . "1 

RE! 


:SET COMMAND ERROR 


IDLE COMAW 


#148 

DBM 

8379 !’ 

5LE; IN 

A, BESTS 

:IF NO HOST INTER 

IRUPT THEN BAIT 

I84fi 

ES88 

2388 

AMD 

BSINT 



M4C 

2SFA 

@381 

JR 

Z.ISLE 



084E 

DB2i 

2382 

IN 

ft.XPIRR 

{ELSE RESET MB 

IRUPT RE00E3T & 

2258 

09 

0383 

RET 





0384 

2385 

2386 

8387 

8388 
2389 
2392 

2391 

2392 
1393 


f THIS IS THE NON-MASKABLE INTERRUPT ROUTINE 
■ UPON 1791 COMMAND TERMINATION. THE ZSi RECEIVES A: N»I. THE 
; STATUS POST IS INTERROGATED t SAVED (SVSTS). IY HAS RETURN 
: ADDS. 

1 

:ADJUST FOR Ml VECTOR LOCATION 
?SET 1791 STATUS I RESET INI, 

:PUT RETURN ADDS ON STACK 


8851 

mm 

@397 

DS 

66H - $ 



2398 



2(866 

DBI4 

2399 WDM: 

IN 

ft, ©STS 

8268 

m 

@482 

XOR 

C 

2269 

327083 

8421 

IS 

(SVSTS), A 

8260 

FBE3 

2422 

EX 

(SP).Iy' 

WSE 

ED45 

2483 

RETN 




8424 




§427 

1428 

8429 


{ COMMA© SELECTOR SUBR SETS CONTROL AFTER THE DISK CONTROLLER IS 
: INTERRUPTED FROM THE HALT CONDITION. IT BRANCHES TO THE INDIVIDUAL 
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DISK CONTROLLER * 

ODULE 

(DCM3 




MAIN 

# 

FIRMWARE 






1 


@41@ 

a/, i i 

; COMMA® ROUIII 

€S. 




Erri I 

8412 


8870 

CB6382 

@413 

ft/, f A 

XCUTE; 

rra i 

vnu. 

EXSTS 

;SET 179X»S ATTENTION FOR CMOS 

0873 

3A7803 

t'lil 

0415 


LD 

A, fCBCMB) 

;GET HOST CMB 



0416 





88-76 

E687 

8417 


AND 

msK 

jLIWT OPTIONS 

8878 

1608 

8418 


LD 

B«@ 


887A 

5F 

0419 


LD 

E,A 

:3ET UP OFFSET 

807B 

218308 

@428 


LB 

HI, CMBT 

:SET TABLE PTR 

007E 

19 

§421 


ABB 

HI, BE 




8422 





@@7F 

SE 

0423 


LD 

L, (HD 

;SET ADDRESS 

§808 

2688 

@424 


LB 

H,0 




0425 





0882 

E3 

8426 


3P 

(HL) 

;80TB COMMAND 



0427 







@428 

; COM) 

WND TAB! 

.E 




8423 






^@@8(3/ 

@438 

CMBT-, 

Eoo 

$ 

; COMMA® TABLE 

0883 

B1 

@431 


BB 

LEON 

;LOS-ON DRIVE 


E5 

0432 


BB 

READ 

; RE© SECTOR 

g@85 

EA 

8433 


BB 

WRIT 

:WRITE SECTOR 

8886 

SB 

8434 


BB 

FORM 

:FORMAT TRACK 

' §887 

42 

8435 


BB 

ABDR 

;READ ADDRESS 

0088 

42 

@4<jf8 


BB 

SPAR 

;SPARES 

088S 

42 

8437 


BB 

SPAR 


S88fi 

43 

0433 


BB 

IDLE 

?BACKGROUND 


10887) 

8433 

MASK: 

EQli 

7 

,*COMMAND MASK (CHANGE IF # CMBS INCREASED) 



0448 







8441 







0442 

|- 






8443 

f 






8444 

; FORMAT TRACK COMMAND 




8445 

} 






0446 

5 




I88B 

CD2B81 

8447 

FORM; 

CALL 

SELECT 


I88£ 

C® 

8448 


RET 

NZ 




8443 





088F 

3A7303 

8458 


LB 

A, (CBSEC) 

;GET FORMAT FLAGS 

8892 

DS7733 

8451 


LB 

(IX+BVFLS).A 

;RESET DRIVE FLAGS 

0835 

CDBC0I 

8452 


CALL 

SEER 




8453 





0838 

FD21A888 

8454 


LD 

IY.NMIWT 

5SET RETURN ADDR 



@455 





8830 

3EF8 

8456 


IS 

A.| SCwR i 

sOOTPUT WRITE TRACK COMMA® TO 1731 

889E 

A3 

8457 


XOR 

C 


883F 

D384 

8458 


OUT 

WBCMD, A 


g - 88A1 

E3 

8459 


EX 

(SP).HL 

sWflIT FOR 1791 

( M2 

E3 

@468 


EX 

ISP),HI 


88fiu 

E3 

8461 


EX 

(SP5, HL 


0ifi4 

E3 

1462 


EX 

(SP), HL 


88A5 

030887 

§463 


JP 

FiffPS 
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CRGffiCO 28® Macro Assembler version 83.87 


SISK CONTROLLER MODULE 
WIN FIRMWARE 

0464 

0®A8 E6E4 @465 

88AA 327703 8466 

8467 

08AD 227A83 8468 

88B8 C9 8469 

8478 

8471 

8472 
0473 

8474 

8475 

8476 

8477 

8478 

ft A *70 

(DCS) 

NMIWT; A® 

IS 

LD 

RET 

BMFER 
(CBSTS),A 

(CWLNS),HL 

:8ET ANY ERRORS 

^DISPLAY TRAIL BYTES 

? DRIVE LOS-ON COMMA® READS THE IDENTITY SECTOR FROM THE 
: DISKETTE A® MAKES THE NEEDED ENTRYS INTO THE DRIVE TABLE. 

; THE SECTGS DATA IS ALSO LEFT IN THE SECTOR BUFFER FOR BIOS 
: TO FINISH THE LOS-ON OPERATION. 

| 



trt r 3 

j 



8851 

CB2B81 

8480 

ISON: CALL 

SELECT 


8884 

C8 

0481 

RET 

NZ 




@482 




@885 

AF 

8483 

XOR 

8 

;SET TSACK=i 

8@B6 

327283 

@484 

LD 

CCBTRKJjfi 




8485 




mss 

3C 

8486 

INC 

A 

;SET SECTOR =1 

88BS 

327383 

8487 

LD 

(CBSEC),A 


88BD 

CDBCii 

8488 

CALL 

SEEK 




@483 




00C@ 

218883 

1498 

LD 

HI,X8UF 


88C3 

1E81 

8491 

LD 

E,1 


88C5 

CS7082 

8492 

CALL 

RBSEC 

;REAB ID SECTOR 



8493 




08C8 

114403 

@494 

LB 

BE,JABEIB 

:SET STRING PTR 

08CB 

d 1 

8495 

LD 

HLJBLBL 

1SET SECTOR BUFFER PTR TS COMPARE 

88CE 

8688 

@496 

LB 

B,IDSZE 

;S£T ID LENGTH 



8497 




i0D8 

Ifl 

@498 

CKJIs LD 

A,(BE) 

|IF IB ®T=JADE THEN 3748 

8821 

BE 

0499 

CP 

(HL) 


88S2 

200B 

8580 

JR 

NZ,13748 




8581 




0SM 

23 

@582 

INC 

HL 

;ELSE INC PTRS 

8825 

13 

@583 

INC 

BE 


88B6 

i@F8 

0504 

BJNZ 

CKJI 

?IF NOT BONE THEN REPEAT 



8585 




88B8 

3AB183 

@586 

LD 

(IDFLB) 

:SET SIDES i DENSITIES 

88SB 

DD7703 

@587 

LD 

(IX+DVFLG),A 


8802 

C9 

8508 

RET 





@583 






@518 

; ASSUME 

374@ FORMAT 




8511 






8512 

13748; 



MDF 

3E88 

8513 

LD 

ft, IDFLD 

[SIDE & DENSITIES FLASS=8 

88E1 

DD7783 

@514 

LD 

ttX+DVFL6) f ft 


@8E4 

C3 

8515 

RET 





0516 






0517 








CRQWEMCO ZSS Macro Assembler version 83.87 12;43;41 

DISK CONTROLLER MODULE «JQf) 

MAIN FIRMWARE 




8513 






8519 

• 





8528 

: READ SECTOR COMMAND 



8521 

£ 





8522 






« 



88E5 

3EFF 

852,5 

READ: 

IS 

0,-1 ;FLAS 5* READ 

0©E7 

87 

8524 


OR 

A 

I8E8 

lS@i 

8525 

8526 
852/ 
8528 


JR 

OPCQKT 








8529 






3538 

5 wr 

FS SECTOR COMMAND 



3531 

8532 

« 








§@Eh 

PiF 

8533 

WRIT; 

XQR 

A ;FLA6 ;= WRITE 

MSB 

IS 

8534 

OfCOMTs 

EX 

SF,AP rSSVE OP IN ALT REGS 



0535 




00EC 

CB2B81 

@536 


CALL 

SELECT ; SELECT DRIVE 

88EF 

rrorffii 

wwl-’u-d-i 

8537 


CALL 

Z,SEEK ;SEEK TRACK 

00F2 

08 

8538 


r5bj 

i>4. 



§539 




lb 

£18083 

3548 


LB 

HLJBUF | DEFAULT TQ UNBLOCKED 

W&r b 

b«H 

8541 


LB 

fi,ICBSEC) 

tm 

5F 

1542 


ID 

h r 



8543 




i8Ffi 

SD7EM3 

8544 


L JLi 

A,III + DVFLG) {IF SECTOR SHE =* 128 THEN SKIP 8L0CKIN8 

Wih %3 

tram 

-UU!U 

8545 


and 

nmmm 

88Fr 

CP74I2 

3o4B 


jp 

t % RlfSECP 



8547 




KM 

CDE382 

8546 


ftry. 

WILL 

DSBUFS ;SET yo PHYSICAL SECTOR BUFFER 

•p : ^yr. 


ifiQro 2 


SE i 

HI 







tm 

m 

8551 


tk 

PF.fiF 5 ;Ir :iE,RB THEN ALRSfflY W XBUf 

mi 

0? 

@552 


WT 




0553 




mm 

til 

‘D'JJt 


IB¬ 

D,:fi 

mm 

@8 

@555 


EX 

AF.AF 5 

818fi 

2i08i4 

@556 


LB 

HI. SBliFS ;ilSE PHYSICAL SECTOR BUFFER 

mm 

3P8885 

'L/tlb / 


> n 

A. 5BSECT) 

811® 

5F 

8553 


L.D 

E,A 

81 il 

C377I2 

■svccn 


rn 

RBSECT 



8560 
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CRONE 
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^■o flssssbler vs : 

^SlOFf iSiis 

J7 
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DISK 

SU5R0 

CONTROLLER 

UTIfES 

MODULE 

(DCW) 






8563 




8564 

4 






3565 

j INI' 

TIRLIZE ! 

4ESS & VARS Sii 

M 



8566 

4 






8567 

:******• 

IHHHHHHHH 


********** 



8566 





1114 

ED5S 

8559 

MT: 

IN 

4- 

T 


Si is 

0E88 

3578 


LD 

c,@ 

*ir Hi} \ iiW'w.'st ■ LI) i-*H: h Udi-ilL : ‘.♦Uii i. 

81 IS 

DB98 

8571 


IN 

A.BLSTS 


mm 

£681 

8572 


AND 

BSU58 


@1SC 

£881 

S573 


JR 

NZ.8T0P 


SHE 

@B 

8574 


DEC 

C ’ 

iELBE SET UP INVERT MASK 

SI IF 

DSS16883 

8575 

STOP: 

lD 

IX.BIDED 

jsET DRIVE TABLE PTR 

0123 

fiF 

8576 


XOR 

A 

rt- 

5BLOCKED BUFFER := EMPTY 

0124 

328885 

05/ 1 


S T\ 

L.U 

(BSEC7>,A 


0127 


8578 


LB 

(SVDRV),A 

;BASE BLCTL SITS 

812A 

C9 

3579 


RET 





8588 







8581 







3582 




8583 

i 






8584 

• THIS 

3 SUBROUTINE IS RESPONSIBLE FOR SELECTING THE COMMA® 



8585 

: REQUESTED DRIVE 1. BEFORE DRIVE SELECTION, THE DRIVE MOTOR 



8586 

1 STATE 

IS TESTED AND IF NEEDED, THEY ARE TURNED ON, 



8587 

I 

CVTT „ 

L/i,l I 

ix= m DRIVE 

TABLE 



0588 

I 


fi= 8: OK, 78: 

ERR 



8589 

I 






8591 


812B 

DBM 

8591 

SELECT: 

IN 

A, BLST5 

;6ET BOARD LEVEL STATUS 

812} 

E620 

8592 


AND 

BSWF 

?IF MOTOR ON THEN CHECK DRIVE 

012F 

280S 

@593 


JR 

Z.CKBV 




8594 





8131 

DE4S 

@595 


IN 

A, XPKTX 

5ELSE ISSUE MOTOR START 

SlaSlJ 

118108 

85% 


lD 

BE,TSMTO 


8136 

rc 

3597 


RST 

8 




8598 





S137 

DB48 

@599 

CKDV: 

IN 

A,XPMTX 

:EXTE® MOTOR TIME 



8688 





8133 

388385 

8681 


LD 

A,(SVDRV) 

; INSURE 179X INTRO ENABLED FOR LATER 

813C 

F684 

8682 


OR 

BCDSE 

;CMDS 

81t5h 

B3@@ 

@683 


OUT 

BLCTLjA 




8684 





1148 

3A7183 

@685 


LB 

A,(CBDRV) 

5 IF THIS DRIVE = OLD DRIVE THEN OX 

8143 

DD9S88 

8686 


SUB 

OX+DVNBR) 


1146 

C8 

36@7 


RET 

7 

L 




8688 





1147 

1EI0 

@689 


LD 

E, DCHDU 

:ELSE UNLOAD HEAD 

8149 

CB5782 

8518 


CALL 

EXHEAD 




8611 





8140 

3148315 

@612 


LD 

A,iSVDRV) 

;DESELECT CURRENT DRIVE, 

814F 

E6FB 

8613 


A® 

[NOT BCDSE] 


8151 

D388 

@614 


OUT 

BLCTLjfi 




8615 





8153 

3147183 

§616 


LD 

A,(CBBRV5 

5SELECT DESIRED DRIVE, 
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8156 

£683 

8617 

AND 

8CDSN 


8158 

D3@@ 

@618 

OUT 

BLCTL.fi 


815A 

F6®4 

•3619 

OR 

BCDSE 


015C 

D3@i 

8620 

OUT 

BLCTL.fi 


@15E 

328385 

8621 

LD 

(SVDRV!,fi 




0622 




8161 

E683 

§623 

ft® 

8CBSN 

SELECT DRIVE TABLE FOR DRIVE 

8163 

DD214C83 

@624 

LB 

IX.DV7BL 


®167 

110588 

8625 

LD 

DE.DVBES 

;DRIVE TABLE ARRAY SIZE 



0626 




816A 

3D 

8627 NEXT; 

DEC 

fi 

5 IF DRIVE = 0 THEN EXIT WITH POINT! 

816B 

FA7281 

8628 

JP 

M. SLED 




8629 




81SE 

DD1S 

§630 

ADD 

IX, DE 

;ELSE POINT TO NEXT ARRAY ft REPEAT 

8178 

18FS 

8531 

JR 

NEXT 




@6,32 




8172 

CBS382 

8633 SLED; 

CftLL 

EX3TS 

;SET FLASS PER DRIVE READY 

§175 

E6S8 

8634 

AND 

DMDHS 


®177 

,52778,1 

0635 

LD 

(CBSTSS.fi 




8636 




817A 

CS 

0637 

RET 




®&36 

®639 


8641 


HOMED SUBROUTINE STEPS THE DISK DRIVE HEAD OUTWARD UNTIL 




8643 

; TRACK 0 FLAS IS TRUE OR 



§644 

1 EXIT - 

R= 8; OK, 



0645 

5 




@646 


■»*«*§**« 



@647 

HONED; 


8I7B 

CD6382 

0648 

CALL 

EXSTS 

817E 

E684 

8649 

AND 

DMTK8 

0188 

2817 

@65@ 

JR 

Z.HOMEi 



@651 



8182 

2Elfi 

8652 

LD 

L. 18 

0184 

3A8305 

8653 

i_D 

A,(SVDRV) 

1187 

F628 

0654 

OR 

BCDAS 

8189 

D38I 

@655 

OUT 

BLCTL.fi 



0656 



0188 

DB88 

8657 

RECALL- IN 

A.XPSTP 

81SD 

115088 

0658 

LD 

DE,TMSTPC 

@198 

CF 

8659 

RST 

6 



@668 



8191 

2D 

@661 

DEC 

L 

8192 

2@F7 

8662 

JR 

NZ,REC8L1 



8663 



8194 

iA@j05 

@664 

LD 

A,iSVDRV) 

8197 

D3ii 

8665 

OUT 

BLCTL, ft 



8666 

HOME!; 


®!99 

2EFF 

8667 

LD 

L, 255D 



8668 



819B 

CD6302 

8669 

STEP; CALL 

EXSTS 

019E 

E684 

@67@ 

AND 

DMTK0 


IT IRK 8 THEN NO RECfiL 


sELSE STEP IN BEYOND IRK 8 
;SELECT ’IN’ 


;STEP 


.; RESTORE DIRECTION 

;SET MAX COLIT 
;IF ON TRUCK § THEN EXIT 




CRiMICQ IS® Macro Assembler version 

®3« 07 

12:43:4! Page 8811 

DISK 

CONTROLLER 

MODULE 

(DCm 



- - SUBROUTINES 

t 





\ 

HAS 

28@B 

8671 

JR 

Ni,Em 




8872 




81A2 

2D 

8673 

DEC 

L 

IIF STEPS = 255 THEN ERROR 

8IA3 

2813 

8674 

JR 

2,ER0R 




8675 




lifts 

3B08 

8676 

IN 

3, XPSTP 

;ISSUE STEP PULSE 



8677 




lift? 

115IIS 

0678 

ID 

DEJMSTPC 

;SET DELAY 

liftfl 

CF 

8679 

RST 

3 


lifts 

IfiEE 

8688 

JR 

STEP 




8681 






8682 

s DRIVE 

IS RESTORED 


HAD 

115881 

vQOO 

1684 

EXIT: LB 

DE,INALS 

;MAIT A BIT AFTER LAST STEP 

01B8 

rr 

8685 

RST 

8 




@686 




8181 

3E@@ 

@637 

LD 

ft, 8 

;SET COMPLETE FLAB 

@iBu 

DD7781 

@688 

0689 

ID 

(IX+DVTSK), 

ft ?SET TRACK VALUE 

8136 

87 

0891 

m 

ft 

jSET RETURN FLASS 

81B7 

C‘3 

@68.1 
ihC QO 

SET 





fJO 3u 

§693 

5 TRACK @ K 

01 FOUND 




8694 




d ©IBS 

3EFF 

§695 

ESORs LD 

ft, @FFH 

;SET FAILURE FLAB 

“ _ 81BR 

ft? 

8596 

ft® 

A 


|Tl| 3D 

ro 

kc n 

CfCT* 



v&uD 

\j J 

i‘Dj r 

0688 

0693 

fSTTSfiSt 

iVU § 






f “■ XTTTT ft ft XT ft XT TXT *>. a 




mi 

■ 





@7i2 

1 TRACK SEEK SUBROUTINE 




0783 

• EXiT “ Ife 

NSITY « PRE-CC 

Sp CONTROLS SET 



@714 

f 

ZF= 0K. S NZ= 

: ERROR 



@7@5 

1 





iS78£ 

“ i’ ¥ iff V V ff v y y y y y 





vO 



nft a« ww *k Knn nX »nn w KT 

eiBc 

CD6332 

8707 

SEEK: CALL 

EXSTS 

iIF HEAD ALREADY LOADED THE BYPASS 

©1BF 

ESS® 

07@8 

ft® 

DMHDL 


lid 

£@09 

@789 

JS 

NZ,HLDD 




87.10 




lies 

1E18 

8711 

:■ n 

.Lii 

£, DCHBL 

;EL6E LOAD HEAD 

8105 

CS57S2 

@712 

CALL 

EXHEAD 




8713 




nos 

115E81 

8714 

LD 

DE f TMHLD 


81CB 

re 

ur 

0715 

RST 

8 




0716 




HOC 

387213 

@717 

BLDB; LD 

ft, 1CBTRK) 

1IF CURRENT TRfiCK=R£QUEST£B TRACK THEN EXIT 

liCF 

DB9681 

@718 

SOB 

UX+DVTRK) 


©IDS 

2816 

§719 

JR 

NZ, DSET 


£ ' 


@72i 




f I1B4 

DB7E84 

8721 

LD 

A, OX+OVCTL 

.3 :ELSE BET PREVIOUS CTLS & RETURN 

iiD7 

C34482 

R 8722 

JP 

EXITS 




§723 






1724 

: SET DI 

SECTION & STEP 

1 COUNT 
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DISK CONTROLLER MODULE (DCM5 

SUBROUTINES 




0725 





81DA 

F5 

8726 

DSET: 

POSH 

fiF 


01DB 

I10A88 

0727 


LD 

BE.TMSAW 

; DELAY FDR STEP AFTER WRITE 

SIDE 

C Y 

8728 


RST 

8 




8723 





81BF 

FI 

8738 


POP 

AF 


@i£8 

3808 

8731 


JR 

C.SOUT 

;CARRY=STEP OUT 



8732 





01ES 

SF 

8733 

SIN; 

LD 

L,fl 


8IE3 

3A8385 

8734 


LD 

A,(SVDRV) 


0iE6 

F628 

8735 


OR 

BCDAS 


«1E8 

D3@@ 

8736 


OUT 

BLCTL,A 


81EA 

138B 

8737 


JR 

STEPS 




8738 





I1EC 

ED44 

8739 

SOUTs 

NEG 


{COMPLEMENT OFFSET 

@1EE 

rA5i@2 

8748 


JP 

M, HOME 




8741 





81F1 

6F 

0742 


LD 

L,A 


81F2 

3A8305 

8743 


LD 

A,(SVDRV5 


81F5 

B388 

8744 


OUT 

BLCTL.ft 




8745 





§IF7 

SB8B 

8746 

STEPS; 

IN 

A, XPSTP 

5ISSUE STEP PULSE 

81F3 

i 1580® 

8747 


LB 

DEJSSTPC 


81FC 

CF 

8748 


RST 

8 ' 




8743 





81FD 

2D 

8758 


DEC 

L 

IIF STEPS-1 NOT 8 THEN STEP ASAIN 

iiFE 

28F7 

8751 


JR 

NZ, STEPS 




8752 





1289 

115880 

8753 


LD 

DEJMALS 

|ELSE EXTEND LAST PULSE 

0203 

CF 

8754 


RST 

S 




8755 







8756 

* 

# 

TRACK SECTION DISTRIBUTE 




8757 





0284 

IEC8 

8758 


LD 

E,SE5BS + BCPCL 

{USE SD, PRECOMP LOW AS DEFAULTS 



8753 




8286 

3A7283 

@768 


LD 

A,(CBTRK5 

;IF TRACK 8 THEN USE DEFAULTS 

8283 

FE81 

8761 


CP 

i 


828B 

3830 

8762 


JR 

C,CTLS 




8763 





02@D 

280A 

@764 


JR 

Z.TRK! 

{ELSE IF TRACK 1 THEN SOTO TRK1 



@765 



828F 

FElfl 

8766 


CP 

26D 

{ELSE IF < TRACK 26 THEN SOTO OUTS 

8211 

381® 

8767 


JR 

C.OUTS 




8768 





8213 

FE34 

@769 


CP 

52D 

{ELSE IF < TRACK 52 THEN SOTO MIDS 

8215 

3814 

877® 


JR 

C,MIDS 




8771 





8217 

isic 

8772 


JR 

INSD 




8773 







8774 

% 

5 

TRACK 1 





8775 





1213 

DDCB834E 

8776 

TRKis 

BIT 

DFT1D, (IK + DVFLS) ;IF SD THEN USE DEFAULTS 

021D 

281E 

8777 


JR 

Z, CTLS 




@778 
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5 IF SS THEN USE DEFAULTS 
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CRONEHCO 280 Macro Asserehler version @3.07 
DISK CONTROLLER MODULE (DCM) 

SUBROUTINES 


Pap 8013 


I 21 F 

1 EB 8 

0773 

T1DD: 

LD 

E, SCDDS + BCPCL :USE DD, LOR COMP 

8221 

181ft 

0788 


JR 

CTLS 



0781 






0782 

5 

OUTSIDE TRACKS 



@783 




0223 

DDCB8356 

8784 

OUTS: 

BIT 

DFDTD, (IX DVFLS5 ;IF SD THEN USE DEFAULTS 

0227 

2814 

8785 


JR 

Z.CTLS 



8786 




1229 

1SF4 

0787 


JR 

T1BD :EL5£ USE SAME AS TRACK 1 



0788 






8789 

5 

MIDDLE 

TRACKS 



8738 




822B 

SDCB6356 

8731 

MIBS; 

BIT 

DFDTD, (IX 4- DVFLS) ;IF SD THEN USE DEFAULTS 

822F 

28@C 

8732 


JR 

2,CTLS 



0733 




§231 

1E98 

0794 


LD 

E,BCDDS 4- BCKM 5 USE DD, MEDIUM PRECDMP 

0233 

1808 

0795 


JR 

CTLS 



8796 






0797 

; 

INSIDE 

TRACKS 



1736 




1235 

DDCB8356 

8799 

INSD: 

BIT 

DFDTD, OX 4- DVFLG) 5 IF SD THEN USE DEFAULTS 

8239 

2802 

0888 


JR 

Z, CTLS 



8881 




§23? 

1E5I 

8882 


LD 

E,BCDDS + SCPCH ;SET DD, HIGH PRECOMP 



8883 






8884 

1 

SET CONTROLS 



0885 




023D 

3A8385 

1806 

OILS: 

LD 

A,iSVDRV) :ADD DENSITY, PRECOMP BITS TO CONTROL BITS 

0240 

B3 

8887 


OR 

E 

8241 

DD7704 

8808 


LD 

(IX 4- DVCTL),fi 



@809 




0244 

B3@0 

0818 

EXITS: 

OUT 

BLCTLjA 



@811 




12*5 

367203 

@812 


LD 

A, CCBTRK) ;S£T REQUESTED TRACK 

8843 

DD7781 

@813 


LD 

ill + DVTRK),ft 

824C 

AS 

8814 


XOR 

C 

@24B 

D3@5 

@815 


GUT 

NDTRK,fi :SET TRACK REGISTER 

824F 


8816 


XOR 

A :SET Z FLAG 

8258 

jriQ 

U mf 

@817 


RET 




8818 






@813 

1 ■ 

CALIBRATE TRACK # 



@320 




@251 

CD7B01 

@821 

HOME: 

CALL 

HOMED 5 HOME SELECTED DRIVE 

@254 

C3CC8i 

8822 


JP 

HUD SHOW SEEK TRACK 


8257 mi 
3253 DB85 


882 * 

8825 | W HHH tH HH fH H t HHHH H HtiKW 

8826 j 

§827 5 HE® LO®/UNLOAD SUBROUTINES 
3828 : ENTRY - E= HEAD COMMAND 

0829 ? 

1831 EXHE®: POP IY :IY=RETURN ABDR 

§838 IN A,«DTRK |PERFORM SEEK TO CURRENT TRACK WITH HEAD LOAD 
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SISK 

CONTROLLER KOBULE 

wm 



SUBRl 

UTINES 





I25B 

8387 

88dti 

ni e it 

'JU i 

wBB f fij H 




@834 




825D 

7B 

8835 

LB 

ft,E 

; OUTPUT PASSED CQMMRNB 

ic'5E 

fl3 

®936 

XOR 

c 


®25F 

5384 

8837 

OUT 

WBCHD, ft 




8838 




@r:hi 

1SFE 

8839 

JR 

$ 

?WfiIT FDR INTERRUPT 



9848 






0341 






•3842 

fffd A ~ 




2844 

• SET STATUS SUBROUTINE 




@945 

; EXIT - 

fi= 179! STATUS 




0.346 

\ 





0847 



3ED8 

8848 

ryC^C*- t n 
CAiJeO* L.if 

ft, BESTS 

; OUTPUT SET STATUS COMMAND TO 1791 


m 

3843 

XOR 

C 


ms 

B3@4 

8858 

OUT 

WDOffi,A 


m s 

Cu 

885! 

EX 

(SP5.HL 

; PAUSE 

ms 

Evj 

0852 

EX 

CSP5,KL 


ijpzr* 

uii 

3853 

EX 

{SP5,HL 


3265 

'Civi 

0854 

EX 

1SPS.HL 


326C 

DB84 

8855 

IN 

P,WDSTS 

sSET LATEST STATUS 

82SE 

m 

§856 

XOR 

r 


r* 

icor 

cs 

§857 

RET 





0858 






1859 






i860 



886! i 

8862 | mm SECTOR SOBR PRESETS RMOP TO READ 




8863 

j 



0364 


4?i« j v- 

1SFF 

3365 

RBSEC: LB B.-l 

iC. hi 

1803 

1366 

-»CC7 

JR RySECT 



feOO i 

U868 




§869 




§870 

? 



0871 

; READ/WRITE SECTOR SUER 



@872 

1 ENTRY- fi’= @: WRITE, /«: READ 



1873 

; HL= XFER PTR 

; E= SECTOR 



@875 

| EXIT - NZ= ERROR 



@676 

1 fi,HL 5 B= ? 



@877 




§878 

|S#*#»«*-i***M*§«*«M*#*f#*##*««« 

* h 

88 

@873 

RWSECfis EX fiF.fiF 1 

8£ T5 

57 

@888 

LD D,fl 

3576 

89 

@88! 

.?,Q20 

EX SF,ftF 5 



Mat 

8883 




0884 




@885 

I 



@886 

f REHD/MRITE SECTOR BUBSOUTINE IMITIfiTES DISK XFER, SEVICES THE 











CRDMEMC8 188 Macro Assembler version 03,87 
BISK CONTROLLER MODULE (SOI) 

SUBROUTINES 


12243:41 


Pace 0815 


8837 | CONTROLLER CHIP DURING DATS XFER, 4 TERMINATES OPERATION 
8388 ; mm FINISHED. ERROR DETECTION IS IMPLEMENTED 4 RETRIES ARE 
8889 | EXECUTED IF DATA ERRORS ARE DETECTED, 


8898 
0831 
889£ 
0893 
8894 
T89j 


ENTRY - D= 8: HRITE, /8: READ 
HL= XFER PiR 

£= PHYSICAL SECTOR # (1..2S) 
EXIT - NZ= ERROR 




@896 

•ft**## 

******** 



0277 

>i r* 

rr 

£07? ' 

3393 

i?/iS;..c r 

XOR 


50 ERROR COUNT 

$d. f S 

y a &tr 

0,939' 
3308 


LD 

4KVU. 

<ERRGT).fl 

CKasu>e 

j CHO/S>5E 5 (PE 

P7g 

73 

8981 


LD 

■:^E 

;SET 1791 SECTOR REGISTER 

: iki r v 

AS 

0982 


XOR - 

r 


; 3, : ;7D 

D306 ' 

" 8983 


liU ; 

wDSEC, A 




89@4 





‘f>c‘7r 


8385 

RHRTRY 

s lD 

IY,RWNMI 

;SET SMI VECTOR FOR RETURN 



8986 





sees 

0688 

1987 

8388 


LD 

6 * DUEfe 

5 DEFAULT TO READ 

§s«Sj 

tr. 

1989 


LB 

M 

1 SELECT OPERATION 

8286 

37 

8318 


OR 

A 


0287 

28f2' 

8311 


JR 

NZjOPOK 




8912 





8289 

f&AS 

8313 

§314 


LD 

B.DCyRS 

;WRITE OP 

828® 

73 

8915 

OPOK: 

/ 4B- 


IOUTPUT READ SECTOR COMMAND 

0SBC 

m 

@916 


XOR 

r- 

w 


sm 

mm 

- 89l7 


nt t'T 

UU! 

MDCMM 




*318 





028 /" 

iU 

§913 


EX 

ISP),HI 


3298 

IiTh* 

@928 


EX 

ISP),HI 

:wfiIT FOR 1791 

029 a 


@321 


EX 

(SP),r(L 


i2Sc 

C 1 ‘ 

kW 

8922 


EX. 

(SP),HL 




@923 





1293 

7fi 

8924 


LD 

fi,D 

5 IF WRITE OP THEN SO DO IT 

@224 ■ 

97 

@325 


DR 

fl 


3295 

232S 

8326 

8927 


JR 

HROP 


8297 

mm 

8328 

RDREPT 

: IN 

fl, XPBSH 

;GENERATE "HOLD" UNTIL 179X 



0929 





@299 

mm 

8938 


IN 

A, NDDTfi 

' 5 XFER DATA TO BUFFER 

8298 

n*r? 

8331 


XOR 

w 


§29C 

f f 

8932 


LD 

(HU. A 


WcS'i) 

L.U! 

8933 


INC 

HI 

|PTS n 

ms 

13-7 

8934 


JR 

RDREPT 




@335 







8336 

; CH 

ECK STAT 

US 




8937 





8283 

869D 

8938 

RUNMI: 

LD 

B, DMRER 

?IF NO ERRORS THEN RETURN 

8282 

F5 

8933 


PUSH 

fiF 

sSAVE 17SX STATUS 



8948 






1 


Ufc &j ($iO£) 

QfK 8 








C8MEMCD 188 

fecro Assasb 

ler version 

83,87 

12;43i4i 

DISK CONTROL! 
SUBROUTINES 

£R NODULE 

(DPO 



%'Ai 

73 

8341 

LD 

A,D 

;IF WRITE DP THEN 

$m 

8? 

8942 

OR 

ft 


8£«5 

20@£ 

8943 

8944 

JR 

NZjRWMSK 


«a»7 

86F.D 

8945 

ID 

B,IM0 

1 USE WRITE ERR MASK 



8946 




32A3 

Fi 

8947 R 

tISSK: ODD 

ftF 

: 173)5 STATUS 


38 

8348 

AND 

B 


tc'AB 

327783 

8943 

LD 

(CBSTS5 5 ft 



08 

8958 

RET 

I 




8951 




mf 

rvc 

U'J 

8952 

PUSH 

DE 

;SAVE FLAG. SECTOR 

08 

CDC082 

8953 

CALL 

CHKRT 

|IF RETRVS NOT EXHAUSTED THEN RETRY 

8£B3 

D: 

8354 

POP 

DE 


04 

2809 

8955 

JR 

2,RMRTRY 




8356 




06 

09 

0957 

RET 




8953 

8959 WSOP; 



DB88 

8368 SEP! 
6961 

M! iN 

iUPBSH 

5HOLD FOR DATA RES 

i£B3 

j,: 

§962 

LD 

ft,(HI) 

;OUTPUT DATA TO 1791 

82 m 

h9 

8963 

XOR 

c" 


tm 

«*?«• 

U3& i 

1964 

OUT 

SfflDTfljA 


I2BD 

23 

8965 

INC 

HL 


82BE 

13F7 

8366 

JR 

KPTO 



$967 

8368 



iSbS !*M 

*#***#*##** 

************* 



8978 3 





8971 j 

CHECK FOR RETRYS BuBROUT 

INE 


8372 ? 

TiQ'-rT 

5 

EXIT - 

fi= 8: OK, /? 

s ERROR 


8974 ;#** 
8375 CHKR 

T: AND 

************* 

BHSNR 

*********** 

5 IF NOT READY THEN EXIT 

aoru r«s 

'fJiwW-W 

8976 

RET 

NZ 



8977 




3203 3ft7633 

8978 

LD 

ft,(CBMOD) 

;IF NO RETRYS CHECK THEN EXIT 

8206 ES80 

8373 

AND 

CMNRT 


82CB C§ 

8988 

RET 

NZ 



89-31 




I2C9 m% 

0382 

IN 

A, XPKTX 



8383 




32CB 3A8485 

8384 

LD 

A, (ERRCT) 

sERROR COUNT +1 

82CE 30 

8985 

INC 

fi 


I2CF 328485 

8986 

LD 

(ERRCT),A 


82SH FE85 

8967 

CP 

RTYSK 

|IF NOT TRY SEEK THEN CHECK LAST 

§£D4 2887 

8388 

JR 

Nz., CKls 



8989 




mm CB7B81 

8331 

CALL 

HONED 

;HOt€ SELECTED DRIVE 

8203 CCBC01 

8991 

CALL 

1, SEEK 

:RE-SEEK DESIRED TRACK 

§2DC C8 

8392 

RET 

NZ 

1IF ERROR THEN EXIT 


8993 




82DD FEI3 

8394 CKLS 

3 CP 

RTYLS 

5 IF LAST RETRY THEN RETURN NITH ! 
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SISK CONTROL! 

ER MODULE 

(DO?) 




sUBSO 

UTINES 






I2SF 

2806 

8995 


JR 

Z,STNZ 




89% 





32E1 

IiBS@4 

8997 


ID 

DE,THPLD 

lELSE WRIT t RETURN WITH NO ERRORS 

82E4 

CF 

8998 


RSI 

8 




8999 





02E5 

AF 

1000 


XOR 

fl 


0cb6 

C9 

1801 


RET 





1002 

; 




I2E7 

3C 

1003 

STNZ: 

INC 

A .SET 

NO RETRY FLAB iNZ) 



1004 





8HE8 

C9 

1005 


.RET 





1008 







1007 







1008 




1889 

I 






1318 

i 

DEBLOCKING BUFFER HANDLES 



1011 

* 

entry- 

af ,= zf; «ur 

IE OP, Hli READ OP 



1012 

a 

exit - 

MZ= bRRDR 




1113 

101 A 

? 


Htj BE= ? 




1015 




lilts 

BQBSJFI 




I2E9 

CDK83 

1017 


CALL 

BliFOK 

|S£T UP SECTOR BUFFER 

8-2EC 

C@ 

1818 


RET 

m 


MED 

C5 

ii'13 

1828 


PUSH 

BC 


I2£E 

118888 

1821 


LD 

8C.SECSIZ 

;SE! UP XFER 

82F! 

118883 

1822 


LB 

DE,XBUF 


I2F4 

•-18804 

1023 


LB 

HL,SBUFR 

fBEFSULT TO LO HALF 



1824 





02F7 

3A7383 

1025 


LB 

A,iCBSEC) 

^COMPUTE LOGICAL HALF 

82Ffi 

3D 

1026 


DEC 

ft 

•8* LO, Is HI 

82F8 

C847 

1827 


BIT 

8 s f! 


MFD 

2883 

1028 


jift 

Z, XOK 




1 &9 





i£'FF 

£18804 

1830 


Lil 

HI,SBUFR + S 

EC3IZ 5XFER HI HALF 



1031 





8382 

89 

1832 

XOK: 

EX 

flF, flF’ 

| IF READ THEN OK 

8383 

2881 

1833 

i ~f~r 


JR 

NZ,NGTWRT 


0b8fc3 

EB 

1835 


EX 

BE.HL 

;ELSE REVERSE DIRECTION 



1836 





@305 

88 

1@37 

MBTW 

EX 

flF, flF’ 

|RESTORE FLAG 

8387 

EBE€ 

1838 


LBIR 



8389 

Cl 

4 Si JJ 

1048 


POP 

Bw 


*. •-■•8Q 

3F 

1041 


XOR 

A 

:RETURN OK 


C9 

1842 


RET 





1843 







1844 

i MS 

% j|f n jjLSLiLjj 

&&&&&&&&.£, jl 







ffffTffTf? 

• «T a ^ wT 

ft *fl» @i $• 34 



1246 

i 






1847 

1 

CHECK FOR BUFFER OK SiJBR 



1848 

1 

EXIT - 

NZ= ERROR 
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CROSEICO Z88 Macro Assembler version 83.87 !£;43i4l Pace 8118 

SISK CONTROLLER MODULE (DCK) 

SUBROUTINES 


1849 ; HL,3E,8= ? 

1851 BUFOK; 


LD 

ft, iCBSEO 

jCOSPUTE PHYSICAL SECTOR 

SEC 

ft 

;1..N -> 0..N-1 

SRft 

ft 

jN' = « / 2 

r«r 

ft 

-i -)• 

LS 

E.A 

-.SAVE FOR LATER 


838C 

387303 

1852 

838F 

3D 

1853 

1318 

CB2F 

1054 

831c 

3C 

1855 



1856 

§313 

5F 

1057 

8314 

3ft®8®5 

1058 

$7i7 

taJi s 

.88 

1859 

8310 


I860 



i @b 1 

331ft 

381285 

1862 

0315 

DDBE08 

1863 

@32® 

SW87 

1864 



1065 

§322 

3P8I85 

1866 

ft 735: 
fc ! v>iua 

DD8E8I 

1857 

1328 

CB 

i860 



1869 



1870 NDTSftt'f 

8329 

21 fl»4 

1871 

832C 

K 

l8/2 

03L‘D 

CD7302 

1873 

§338 

■Ji 

1074 

USsSi, 

2 8®2 

1175 



1876 

§333 

1E00 

1877 



i8/8 

8335 

2! @8@5 

1079 BROOK; 

ft77£S 

73 

1088 


23 

1881 

@33ft 

DD7E81 

1062 

®33G 

77 

1883 


U' 

1884 

I33F 

DD7E80 

1885 

8342 

77 

1086 

1343 

rq 

u J 

1887 



nee 


ID A,(BSECT) 

CP E 

JR NZ,NOTSftME 

lD iBDISK) 

CP <ZX + BVNBRi 

JR HI ,NOISOME 

LD ft,iBTRfiCK) 

CP OX + DVTRK3 

RET Z ;SWE. 


LD HI,SBUFR iSET PTR 


5 IF BUFFER NOT SAME THEN READ SUES 


ruST RETURN 


PUSH 

pm i 

DE 

rSfiVE PHYSICflL SECTOR # 

LHsll. 

POP 

fwStLL 

DE 


JR 

I,BROOK 

ilF ERROR THEN CLEAR BUFFER 

LS 

E,l 


LD 

HL BSECT 

; UPDATE BUFFER PTRS 

LD 

1HL5.E 


trip 

iia. 

HL 


LD 

ft,(IX + DVTRR) 


LS 

INC 

(HD, ft 

HL 


LD 

ft,(IX + DvNBR) 


LD 



RET 







CR0ME1CQ 2S0 Macro Assembler version @3.87 
BISK CONTROLLER MODULE (DCS) 

BATA AREAS 


12 : 43:41 


Pane 1813 



183! 





i@9£ 

f 




1@93 





1894 

; DISKETTE 

FORMAT LABEL 



1095 

« 




1896 

* 



4A618465 

1897 

JADEID; DB 

’Jade DD 5 

^DISKETTE ID LABLE 

28444428 





(8038) 

1398 

IDSZE: EQU 

$-JADEID 

;LRBEL LEMSTH 


1899 




(03S0) 

1103 

IDL8L: EOU. 

BUFBG+8 

5 ID SECTOR LABEL OFFSET 


1181 




(83A0) 

1182 

IDBLK: EOU 

IDLBL+28H 

:ID DISK DESCRIPTOR BLOCK 

18338! 

1133 

IDSPT: EOU 

IDBLK+8 

;SECTORS PER TRACK OFFSET 

(8388J 

1184 

1D3T3; EQU 

IDBLK+IIH 

;SECTOR STAGGER OFFSET 

(8381} 

1185 

IDFLS: EQU 

I9BLK+11H 

{DISKETTE FLABS OFFSET 


. 113S 




180885 

1107 

IDrLi) « '“IkU 

303808806 

53748 FLABS 


rrht ‘ 


118B 



1 *J J 

* t . 






1118 







' i i i I 


liRiVE THElh 

OFFSETS 



4 * 4 
& i iL 

; 






‘i ^ 5 






(0000! 

,i i 4, *J> 

1114 

BVNBR: 

EQU 

8 


{CURRENT DRIVE # 

(8031) 

I f f c 

DVT®: 

EQU 

< 

A 


{CURRENT TRACK # 

mm 

11!S 

DVSEC; 

ESU 

2- 


{CURRENT SECTOR i 


l a 1 i 

1 






ms 

9 

? 

SISK FORMAT 

FLAS BYTE 



1! 19 







1123 

»Bll §* 

7654321 

@ 




1121 

? 

A.A AAA 

A 

TRACK 0 DENSITY (8: 3D, 1: DB) (ALLWAYS 


1122 

5 

il ill 


TRACK 1 DENSITY 


i i 01 

i si 


\! ! i 


TRACK 2,,76 DENSITY 


1124 

*■ 

.)■ I 


SiShS rLnC 

IS: I SIDE, 1: 2 SIDES) 


■f f 

* 

i 


BYTES PER 

bcL 1 UH (00: 01 % .uijDs ifl 


1126 

1 





188031 

1127 

DVFLS: 

EQU 

7 


{SIDE ft DENSITY FLABS 


1128 







1129 

s 

FLAB SI 

T BE? 

: INITIONS 



1138 






(088!) 

1131 

DFTID: 

EQU 

i 


:TRK 1 DENSITY !1=DBL) 

'(8002) 

1132 

DFDTDs 

tyil 

d 


{DATA TRKS DENSITY fi=DBL5 

18883! 

1X33 

DFTSDs 

eoo 

3 


?2 SIDED (1=2 SIDES) 

(00025 

1134 

1135 

'SFBFLs 

ESU 

Dr : i 

.D + DFTID 

{DEFAULT FLABS 

(88@45 

1136 

BVCTLs 

uiiU 

4 


CUklftLS tiSd) UFtt&l 


A £ i5 / 

1 4 70 


nsTUT* ? 

fMK cc 




a jl Lie 

1170 

** . 

1/lli Vt § 

hcleU: 



ifo4Cl 

i i48 

DVTBL; 

EOU 

$ 



mmm 

l!4l 

BTDEi; 

DB 

^^ 23dD|8b DrDFL^ 8C4H sBRiV2 8 

81FFW82 

1142 

DTDE1: 

SB 

1,255D,DFDFL,8C5H {DRIVE 1 






























"ROmCO ZB© $acrG Pesetbier version 83,87 


J2s-4sj«4l 


Pane SI 


( 


I 


j, i 58 

nai 

i i'Bc' 

1183 

1184 

1 185 

1186 


THIS CODE IS ENTERED BY THE BOOT INJECTION' MODULE IBIS FROM ENTRY 
VECTOR ST DON ADDRESS SilSH (ACTUALLY AT 8433H WHEN EXECUTED), 

IT RELOCATES THE ENTIRE DCS CURRENTLY IN BANK 1 TO BANK «, THEN TRANSFERS 
CONTROL TO IT’S BANK I IM88E WHICH THEN PROCEEDS ID INITIALIZE THE FIRMWARE 
LOAD THE BIOS LOADER INTO THIS BUFFER. 


mi 


:13s k"Bj 

: tv 

U.b’ 

BC.3(ML 

;SE? BYTE COUNT TO MOVE 

8383 

... .4 

r pc- 

■ Tv 

_4. J 

DE, BANK2 


3333 

T i T T? Vi 

Li 

1190 


HL,BPNKl 


■■ 


•, •{ r •»' 

i i .l* ,+ 

121R 


sXFER m TO BANK 1 FROM LO 

S32E 

C3SEZ3 

n « « ,rv\ 
ft _ t x 3£T 

T It 

J r‘ 

DOWN 

^TRANSFER TC FOLLONINS CODE 

v3bc 

7; 

1134 DOWN; 

i n. 

i_u 

SP.STACK 


n,« „ 

*. fl.. 

- -; <“*r 

7Ai l 

TltTT 


'.J a 

1 rv 1 

i i '33 
i < oc 

Unuu 

liHL ! 



.. lLl 

ji i JD 

1197 

; Tii 

£*.£ 

;L0AD IN BIOS LOADER SECTOR 

1336 

BB4I 

1138 

Ifv 



ms 

£18803 

1193 

‘ f) 

HI, BLOB 

I SET RETURN TO EXECUTE ELI 

!>393 

E5 

1£80 

PUSH 

HL 


>Tj“" !*TrP 

C3788E 

l£8i 

1E8E 

JP 

RDSEC 



m 


( 









CRDfffiCO 180 Wacro {techier version 83.17 
DISK CONTROLLER H0DUL.E (DO!) 
UNINITIALIZED VARIABLES 


12:43:41 


Pape 8822 


11408) 


1 20U 

1283 

1218 


ORB BANK! 

PHYSICAL SECTOR LOCS FOR DEBLOCKING 


0418 (8188) 


§588 (8881! 
8581 (880 !) 
0582 (8681! 

8583 (888!' 
@504 18881} 

8585 18820) 
18525) 


1212 SBUFR DS 

1213 : 

1214 : 


:PHYSICAL SECTOR BUFFER 


NOTE: THE FOLLOWS© 3 BYTES HOST APPEAR IN THIS ORDER. THEY ARE 

1215 : INDEXES 3Y A POINTER IN BUFGK SUBS. 

1216 ; 

1217 BSECT DS ! :CURRENT SECTOR I 

:CURRENT SECTOR TRACK t 
;CURRENT SECTOR DISK # 


1213 BDI3K 
1228 


DS 


i ?Pi 


1224 

1225 

1226 
1238 


ERRCT 


STACK 


EaU 

END 


1 


;BLCTL DRIVE BITS 
}RETRY COUNT 

;STACK SIZE 


errors 
Ranee Count 




CROMEMCO 28© Macro Assembler version S3.07 
DISK CONTROLLER MODULE (DCM) 


12:43:4! 


Symbol 

Value 

Defn 

References 

ADDR 

8842 

8381 

8435 


BANKS 

8808 

3204 

@285 

0288 8228 

BRNK1 

8400 

@285 

8221 

8233 1198 

3ANKL 

§480 

@283 

@285 

0278 1188 

BCDfiS 

0020 

@998 

8654 

8735 

BCS3DE 

8010 

0897 

0187 


BCDDS 

0018 

0107 

@779 

8734 8882 

BCD38 

0000 

8101 



BCDSA 

0881 

@093 

8185 


8CDS8 

0002 

8894 

8185 


BCDSE 

8804 

@895 

8682 

@613 8619 

8C0SN 

3883 

8185 

861.7 

8623 

BCEIA 

8888 

@096 



BCPCfi 

8048 

@899 

@108 

@110 

BCPCB 

@880 

0100 

0183 

8118 

8CPCK 

8848 

8108 

8882 


BCPCL 

00C0 

@118 

8758 

@779 

BCPCM 

8880 

@189 

0734 


BCPCZ 

8080 

8111 



BCSBS 

8888 

8108 

@758 


BDISK 

8582 

1219 

1062 


BE® 

3801 

@226 



BERSA 

@@82 

0227 



EERBB 

0884 

@228 



BLCTt 

8800 

8878 

§683 

8614 @613 

BLSTS 

0008 

@@77 

8379 

8571 8591 

BRDOK 

@335 

1879 

1875 


BSDCN 

@883 

@123 



BSECT 

85@@ 

1217 

8557 

8577 1858 

BSE IA 

8018 

@128 



BSINT 

8888 

8119 

8380 


BSMOF 

8828 

@121 

@532 


BSTSD 

8848 

8122 



BSTST 

8004 

8118 



3SUS0 

8881 

@116 

8572 


83051 

1002 

@117 



BTRfiCK 

@581 

1218 

1866 


BtlFBS 

@388 

8228 

1100 

1172 1175 

BUFOK 

838C 

1851 

1817 


CBCMD 

8378 

@289 

@415 


CBDRV 

@371 

8218 

8685 

@616 

CBFFG 

8374 

@213 



CBMOD 

0376 

@215 

0978 


CBSEC 

@373 

@212 

8458 

@487 8541 

CBSPR 

@375 

8214 



CBST3 

@377 

0216 

0369 

8466 8635 

CBTRK 

1372 

@211 

8484 

0717 @768 

SHKRT 

@2C@ 

@975 

3953 


CKDv 

0137 

@599 

§593 


CKJ1 

88D0 

8498 

§584 


ms 

@2330 

§394 

8388 


•CLEAR 

@013 

0384 

0268 


CMDBLK 

1373 

8288 

0283 

8218 @211 

CMDT 

8383 

@433 

@428 



0218 @£11 0212 0213 0214 §215 @216 0217 8218 1155 3158 
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CSMEMCO 280 Macr 

i o $55BBbier version @3, @7 


12:43;41 

Pace @@24 

DISK COMT 

ROLLER MODULE 

(DCM5 




Symbol 

Value 

Defri 

References 




cam 

®$8® 

@238 

@973 




CSBSY 

8001 

@159 





CSCRC 

0008 

@156 





CSDNR 

mm 

8152 





L&DRQ 

@8@£ 

@167 





CSHLD 

8820 

@154 





CSI Wi 

0002 

@158 





iSlDE 

8884 

@166 





CSRXF 

0818 

@165 





CSSKE 

8018 

@155 





CSTK8 

8084 

@157 





CSTYPE 

0020 

8153 





CSyFLT 

@82® 

@164 





CSURP 

®@4@ 

8153 





CTLS 

823S 

08@6 

@762 8777 @780 @785 @792 

®795 @80® 



CWLflD 

@378 

0217 





oilnb 

837S 

8218 

8468 




DCHDL 

8818 

@127 

@711 




DCHDD 

8018 

@128 

@689 




DCIFI 

88D8 

@146 





BOMBS 

@40*5 






SOU 

048@ 

@234 





DOBS 

8884 

@232 





BC338 

88C0 

@144 





f DCftDS 

@088 

@14® 

@987 




L DCS® 

i@98 

8141 





DCSTS 

80D8 

8145 

1848 




mum 

10® 

@142 

1913 




DffiRT 

88F8 

@147 

@456 




DFDR. 

@012 

1134 

1141 1142 1143 1144 




DF3 T B 

@002 

1132 

1784 @791 8799 




DFT1D 

0901 

1131 

0776 1134 1134 




DFTSB 

1003 

1133 





Mm 

8888 

0176 

@634 8975 




BMFER 

@§E4 

@173 

@465 




BMHDL 

8020 

8175 

8788 




0MLDE 

0004 

@177 





SMSES 

889D 

@171 

@938 




DHTKB 

i@@4 

@174 

8649 @678 




MER 

00FD 

@172 

8345 




DOBOFR 

82E3 

1816 

8548 




DOP 

83BE 

1194 

1132 




BSET 

eiDfi 

0726 

@719 




0TBE8 

§340 

1141 

ii4& 




3TBEI 

@351 

1142 

1146 




SIDED 

@360 

1145 

8575 




DVCTL 

0004 

1136 

@721 @888 




J5VBES 

8885 

1146 

8625 




SVFLS 

1803 

1127 

8451 @507 @514 @544 8776 

@784 @731 @793 



r . SVNBR 

@880 

1114 

8686 1163 1185 




[ BVSEC 

8082 

1116 





DVTBL 

@340 

114 @ 

@624 




BV T RK 

8881 

1115 

@688 @718 @813 1067 1882 




ERQR 

81BB 

@695 

@674 
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CRQMEsCO ZSB Macro Rsseabler version 83.07 
DISK CONTROLLER MODULE (DCM) 


Sviboi 

Value 

Defrs 

References 

ERRCT 

@504 

1222 

8899 @984 8986 

SXHFJD 

8257 

8831 

8618 @712 

EXIT 

0 iflD 

0684 

8671 

EXITS 

8244 

@810 

8722 

EXSTS 

8263 

8848 

§413 8633 8648 @663 8787 

FALSE 

8080 

g®46 

8847 8848 

FOB 

8780 

8221 

8222 

FfCros 

0788 

@222 

8463 

FORM 

8 @ 8 fi 

@447 

0434 

HI_DD 

81CC 

8717 

0789 0822 

HOME 

8251 

8821 

0748 

HOME! 

0159 

@666 

0658 

HOMED 

@I7B 

0647 

8821 8990 

HRVEC 

@63D 

8343 

IBukll 

13748 

80S* 

0512 

§530 

IDBLK 

*BuA@ 

1102 

1183 1184 il@5 

1 Bril) 


1107 

@513 

IDFL-3 

@3B1 

1105 

0506 

IDLBL 

0388 

1100 

8435 1182 

IDLE 

8048 

@373 

3381 3438 

IDSPT 

@3fi@ 

1103 


ISST 8 

83B0 

1104 


IDS7E 

@@@8 

1898 

8496 

MI 

0114 

8569 

@385 0329 1135 

INITB 

8388 

1188 

8278 

INSD 

8235 

8793 

0772 

JfiDEID 

8344 

1897 

8494 1838 

LBON 

88B1 

8488 

0431 

LSTINC 

8080 

8@4B 

@07! @137 

NR5K 

808 / 

0433 

0417 

MISS 

0228 

@791 

8778 

MBTRK 

8858 

@184 


NEXT 

8168 

@627 

8631 

j#IIST 

%m 

8206 


WHWT 

mm 

@465 

8454 

NOTSffiE 

0329 

1078 

I860 1864 

NOTURT 

0388 

10i5 i 

1833 

OPCONT 

mm 

@534 

@525 

OPOK 

828B 

@915 

8911 

OUTS 

0223 

8784 

@767 

RDREPT 

@297 

8928 

8334 

RDSEC 

1278 

8863 

@316 @432 1873 1211 

REPS 

0<K5 

@523 

8432 

FECALi 

8188 

8657 

8662 

REPTy 

@287 

0360 

8366 

RST38 

8038 

0341 


RS738fl 

2838 

@323 

8343 

RST48 

@128 

8316 


RSTfl 

0008 

@282 


STYLE 

mm 

1193 

8354 

RTYSK 

@015 

8198 

8987 

RWMSK 

mm 

8947 

@943 

W?I 

02A8 

0938 

@305 

RWRTRY 

I27F 

§985 

@955 
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DISK CONTROLLER MODULE 1DCMS 


Symbol 

Value 

Defn 

References 

RysEca 

8274 

8879 

8546 


RklSECT 

8277 

0898 

8559 

@866 

SB'JFR 

84® 

1212 

8556 

1823 1830 1871 

SECSIZ 

9888 

9233 

1821 

1838 

SEEK 

01BC 

0797 

8452 

8488 8537 8991 

SELECT 

0128 

8591 

8447 

8488 @536 

SIN 

81E2 

8733 



SLED 

9172 

8Si3 

8528 


SLEEP 

$<m 

8352 

@306 


sour 

I SEC 

8733 

0731 


SPAR 

8842 

8369 

S436 

8437 

STACK 

©525 

1225 

@304 

8342 1194 

STEP 

8138 

0669 

@580 


STEPS 

81F7 

@746 

873? 

@751 

STNZ 

02E7 

1003 

@395 


STOP 

81 IF 

§575 

@573 


SVBRV 

8583 

1 LL 1 

8578 

@601 §612 §621 

SvSTS 

@37C 

1178 

@401 


tidd 

821F 

9779 

8787 


t “ rvr 

0013 

8230 

@2*85 


TICKS 

88@F 

@287 

8235 


ms 

mm 

0186 

8684 

§753 

T©BR 

mm 

@183 



TH HLD 

8S5E 

@135 

0714 


TSMIO 

mmi 

@18? 

@536 


TMni n 

8488 

§188 

0997 


TSSFC 

8813 

@133 

@283 


" ?RfC 

®@1C 

9194 

@287 


TMSfiH 

mm 

8183 

@72? 


TMS T P 

8888 

8181 



TMSTPC 

8958 

0182 

8658 

8678 ®747 

imi 

8219 

8776 

8764 


TRUE 

FFFF 

@04? 



: S * PCK 

pm 

3348 



VERSN 

3133 

8843 




8894 

i@79 

8458 

@837 8858 iS17 

kyD i fi 

mi 

8083 

@833 

8938 @364 

S0IN7 

1966 

@339 



WBSEC 

0806 

0882 

iS@3 


WSSTS 

8084 

@@80 

0399 

8855 

iffiTRK 

8885 

S081 

8815 

3832 

ysir 

ME8 

8533 

@433 


y«3P 

02B7 

0353 

@326 


mup 

8389 

1176 

0498 

§548 1822 

Aww> l E, 

8878 

0413 

8338 


m 

3382 

1032 

1028 


PDSK 

@888 

§@88 

@328 

@968 

mm 

C«@ 

9886 

@341 

@382 

XPNTD 

0010 

0085 



KPMTK 

mm 

8887 

8595 

8539 8982 1138 

PSTP 

8888 

@084 

@657 

0576 @746 
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”3 s' 

3^^ 

$&<zrs . 


' i/j73 /C 

C/?/ 5 

6> H 

■ (3 V 

fc> f ^ £/., J>~<^ 


.£ U 

C/ftc t> (K 

2.if£ 

./•» - / 

fejz c //TXT 

lb 

. / r 

p>. P T~ / ;j t 

5~ 7 


'■~* ■■ 

2- 


7? 5 / 7" 




S. 


old 


/z.u>j' 

Mp/J 

- Block.rj> 

QO'J&^W 

A JEI/J 

BincJckJ) 

^o: 3 ^, <*?s 

f-M P ( f 
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